# APIStatements

Statement:
Public Const MCIERR_NONAPPLICABLE_FUNCTION = (MCIERR_BASE + 46)


Statement:
Public Const MCIERR_ILLEGAL_FOR_AUTO_OPEN = (MCIERR_BASE + 47)


Statement:
Public Const MCIERR_FILENAME_REQUIRED = (MCIERR_BASE + 48)


Statement:
Public Const MCIERR_EXTRA_CHARACTERS = (MCIERR_BASE + 49)


Statement:
Public Const MCIERR_DEVICE_NOT_INSTALLED = (MCIERR_BASE + 50)


Statement:
Public Const MCIERR_GET_CD = (MCIERR_BASE + 51)


Statement:
Public Const MCIERR_SET_CD = (MCIERR_BASE + 52)


Statement:
Public Const MCIERR_SET_DRIVE = (MCIERR_BASE + 53)


Statement:
Public Const MCIERR_DEVICE_LENGTH = (MCIERR_BASE + 54)


Statement:
Public Const MCIERR_DEVICE_ORD_LENGTH = (MCIERR_BASE + 55)


Statement:
Public Const MCIERR_NO_INTEGER = (MCIERR_BASE + 56)


Statement:
Public Const MCIERR_WAVE_OUTPUTSINUSE = (MCIERR_BASE + 64)


Statement:
Public Const MCIERR_WAVE_SETOUTPUTINUSE = (MCIERR_BASE + 65)


Statement:
Public Const MCIERR_WAVE_INPUTSINUSE = (MCIERR_BASE + 66)


Statement:
Public Const MCIERR_WAVE_SETINPUTINUSE = (MCIERR_BASE + 67)


Statement:
Public Const MCIERR_WAVE_OUTPUTUNSPECIFIED = (MCIERR_BASE + 68)


Statement:
Public Const MCIERR_WAVE_INPUTUNSPECIFIED = (MCIERR_BASE + 69)


Statement:
Public Const MCIERR_WAVE_OUTPUTSUNSUITABLE = (MCIERR_BASE + 70)


Statement:
Public Const MCIERR_WAVE_SETOUTPUTUNSUITABLE = (MCIERR_BASE + 71)


Statement:
Public Const MCIERR_WAVE_INPUTSUNSUITABLE = (MCIERR_BASE + 72)


Statement:
Public Const MCIERR_WAVE_SETINPUTUNSUITABLE = (MCIERR_BASE + 73)


Statement:
Public Const MCIERR_SEQ_DIV_INCOMPATIBLE = (MCIERR_BASE + 80)


Statement:
Public Const MCIERR_SEQ_PORT_INUSE = (MCIERR_BASE + 81)


Statement:
Public Const MCIERR_SEQ_PORT_NONEXISTENT = (MCIERR_BASE + 82)


Statement:
Public Const MCIERR_SEQ_PORT_MAPNODEVICE = (MCIERR_BASE + 83)


Statement:
Public Const MCIERR_SEQ_PORT_MISCERROR = (MCIERR_BASE + 84)


Statement:
Public Const MCIERR_SEQ_TIMER = (MCIERR_BASE + 85)


Statement:
Public Const MCIERR_SEQ_PORTUNSPECIFIED = (MCIERR_BASE + 86)


Statement:
Public Const MCIERR_SEQ_NOMIDIPRESENT = (MCIERR_BASE + 87)


Statement:
Public Const MCIERR_NO_WINDOW = (MCIERR_BASE + 90)


Statement:
Public Const MCIERR_CREATEWINDOW = (MCIERR_BASE + 91)


Statement:
Public Const MCIERR_FILE_READ = (MCIERR_BASE + 92)


Statement:
Public Const MCIERR_FILE_WRITE = (MCIERR_BASE + 93)


Statement:
Public Const MCIERR_CUSTOM_DRIVER_BASE = (MCIERR_BASE + 256)


Statement:
Public Const MCI_USER_MESSAGES = (&H400 + MCI_FIRST)


Statement:
Public Const MCI_ALL_DEVICE_ID =  - 1 '  Matches all MCI devices


Statement:
Public Const MCI_DEVTYPE_VIDEODISC = 514


Statement:
Public Const MCI_DEVTYPE_ANIMATION = 519


Statement:
Public Const MCI_DEVTYPE_DIGITAL_VIDEO = 520


Statement:
Public Const MCI_DEVTYPE_WAVEFORM_AUDIO = 522


Statement:
Public Const MCI_DEVTYPE_SEQUENCER = 523


Statement:
Public Const MCI_DEVTYPE_FIRST = MCI_DEVTYPE_VCR


Statement:
Public Const MCI_DEVTYPE_LAST = MCI_DEVTYPE_SEQUENCER


Statement:
Public Const MCI_DEVTYPE_FIRST_USER = &H1000


Statement:
Public Const MCI_MODE_NOT_READY = (MCI_STRING_OFFSET + 12)


Statement:
Public Const MCI_MODE_STOP = (MCI_STRING_OFFSET + 13)


Statement:
Public Const MCI_MODE_PLAY = (MCI_STRING_OFFSET + 14)


Statement:
Public Const MCI_MODE_RECORD = (MCI_STRING_OFFSET + 15)


Statement:
Public Const MCI_MODE_SEEK = (MCI_STRING_OFFSET + 16)


Statement:
Public Const MCI_MODE_PAUSE = (MCI_STRING_OFFSET + 17)


Statement:
Public Const MCI_MODE_OPEN = (MCI_STRING_OFFSET + 18)


Statement:
Public Const MCI_FORMAT_MILLISECONDS = 0


Statement:
Public Const MCI_FORMAT_SMPTE_30DROP = 7


Statement:
Public Const MCI_NOTIFY_SUCCESSFUL = &H1


Statement:
Public Const MCI_NOTIFY_SUPERSEDED = &H2


Statement:
Public Const MCI_OPEN_SHAREABLE = &H100&


Statement:
Public Const MCI_OPEN_ELEMENT_ID = &H800&


Statement:
Public Const MCI_STATUS_NUMBER_OF_TRACKS = &H3&


Statement:
Public Const MCI_STATUS_MEDIA_PRESENT = &H5&


Statement:
Public Const MCI_STATUS_TIME_FORMAT = &H6&


Statement:
Public Const MCI_STATUS_CURRENT_TRACK = &H8&


Statement:
Public Const MCI_GETDEVCAPS_ITEM = &H100&


Statement:
Public Const MCI_GETDEVCAPS_CAN_RECORD = &H1&


Statement:
Public Const MCI_GETDEVCAPS_HAS_AUDIO = &H2&


Statement:
Public Const MCI_GETDEVCAPS_HAS_VIDEO = &H3&


Statement:
Public Const MCI_GETDEVCAPS_DEVICE_TYPE = &H4&


Statement:
Public Const MCI_GETDEVCAPS_USES_FILES = &H5&


Statement:
Public Const MCI_GETDEVCAPS_COMPOUND_DEVICE = &H6&


Statement:
Public Const MCI_GETDEVCAPS_CAN_EJECT = &H7&


Statement:
Public Const MCI_GETDEVCAPS_CAN_PLAY = &H8&


Statement:
Public Const MCI_GETDEVCAPS_CAN_SAVE = &H9&


Statement:
Public Const MCI_SYSINFO_QUANTITY = &H100&


Statement:
Public Const MCI_SYSINFO_INSTALLNAME = &H800&


Statement:
Public Const MCI_SET_DOOR_CLOSED = &H200&


Statement:
Public Const MCI_SET_TIME_FORMAT = &H400&


Statement:
Public Const MCI_SET_AUDIO_ALL = &H4001&


Statement:
Public Const MCI_SET_AUDIO_LEFT = &H4002&


Statement:
Public Const MCI_SET_AUDIO_RIGHT = &H4003&


Statement:
Public Const MCI_RECORD_OVERWRITE = &H200&


Statement:
Type MCI_GENERIC_PARMS
        dwCallback As Long
End Type


Statement:
Type MCI_OPEN_PARMS
        dwCallback As Long
        wDeviceID As Long
        lpstrDeviceType As String
        lpstrElementName As String
        lpstrAlias As String
End Type


Statement:
Type MCI_PLAY_PARMS
        dwCallback As Long
        dwFrom As Long
        dwTo As Long
End Type


Statement:
Type MCI_SEEK_PARMS
        dwCallback As Long
        dwTo As Long
End Type


Statement:
Type MCI_STATUS_PARMS
        dwCallback As Long
        dwReturn As Long
        dwItem As Long
        dwTrack As Integer
End Type


Statement:
Type MCI_INFO_PARMS
        dwCallback As Long
        lpstrReturn As String
        dwRetSize As Long
End Type


Statement:
Type MCI_GETDEVCAPS_PARMS
        dwCallback As Long
        dwReturn As Long
        dwIten As Long
End Type


Statement:
Type MCI_SYSINFO_PARMS
        dwCallback As Long
        lpstrReturn As String
        dwRetSize As Long
        dwNumber As Long
        wDeviceType As Long
End Type


Statement:
Type MCI_SET_PARMS
        dwCallback As Long
        dwTimeFormat As Long
        dwAudio As Long
End Type


Statement:
Type MCI_BREAK_PARMS
        dwCallback As Long
        nVirtKey As Long
        hwndBreak As Long
End Type


Statement:
Type MCI_SOUND_PARMS
        dwCallback As Long
        lpstrSoundName As String
End Type


Statement:
Type MCI_SAVE_PARMS
        dwCallback As Long
        lpFileName As String
End Type


Statement:
Type MCI_LOAD_PARMS
        dwCallback As Long
        lpFileName As String
End Type


Statement:
Type MCI_RECORD_PARMS
        dwCallback As Long
        dwFrom As Long
        dwTo As Long
End Type


Statement:
Public Const MCI_VD_MODE_PARK = (MCI_VD_OFFSET + 1)


Statement:
Public Const MCI_VD_MEDIA_CLV = (MCI_VD_OFFSET + 2)


Statement:
Public Const MCI_VD_MEDIA_CAV = (MCI_VD_OFFSET + 3)


Statement:
Public Const MCI_VD_MEDIA_OTHER = (MCI_VD_OFFSET + 4)


Statement:
Public Const MCI_VD_FORMAT_TRACK = &H4001


Statement:
Public Const MCI_VD_PLAY_REVERSE = &H10000


Statement:
Public Const MCI_VD_PLAY_SPEED = &H40000


Statement:
Public Const MCI_VD_PLAY_SLOW = &H100000


Statement:
Public Const MCI_VD_SEEK_REVERSE = &H10000


Statement:
Public Const MCI_VD_STATUS_SPEED = &H4002&


Statement:
Public Const MCI_VD_STATUS_FORWARD = &H4003&


Statement:
Public Const MCI_VD_STATUS_MEDIA_TYPE = &H4004&


Statement:
Public Const MCI_VD_STATUS_SIDE = &H4005&


Statement:
Public Const MCI_VD_STATUS_DISC_SIZE = &H4006&


Statement:
Public Const MCI_VD_GETDEVCAPS_CLV = &H10000


Statement:
Public Const MCI_VD_GETDEVCAPS_CAV = &H20000


Statement:
Public Const MCI_VD_GETDEVCAPS_CAN_REVERSE = &H4002&


Statement:
Public Const MCI_VD_GETDEVCAPS_FAST_RATE = &H4003&


Statement:
Public Const MCI_VD_GETDEVCAPS_SLOW_RATE = &H4004&


Statement:
Public Const MCI_VD_GETDEVCAPS_NORMAL_RATE = &H4005&


Statement:
Public Const MCI_VD_STEP_FRAMES = &H10000


Statement:
Public Const MCI_VD_STEP_REVERSE = &H20000


Statement:
Public Const MCI_VD_ESCAPE_STRING = &H100&


Statement:
Type MCI_VD_PLAY_PARMS
        dwCallback As Long
        dwFrom As Long
        dwTo As Long
        dwSpeed As Long
End Type


Statement:
Type MCI_VD_STEP_PARMS
        dwCallback As Long
        dwFrames As Long
End Type


Statement:
Type MCI_VD_ESCAPE_PARMS
        dwCallback As Long
        lpstrCommand As String
End Type


Statement:
Public Const MCI_WAVE_PCM = (MCI_WAVE_OFFSET + 0)


Statement:
Public Const MCI_WAVE_MAPPER = (MCI_WAVE_OFFSET + 1)


Statement:
Public Const MCI_WAVE_OPEN_BUFFER = &H10000


Statement:
Public Const MCI_WAVE_SET_FORMATTAG = &H10000


Statement:
Public Const MCI_WAVE_SET_CHANNELS = &H20000


Statement:
Public Const MCI_WAVE_SET_SAMPLESPERSEC = &H40000


Statement:
Public Const MCI_WAVE_SET_AVGBYTESPERSEC = &H80000


Statement:
Public Const MCI_WAVE_SET_BLOCKALIGN = &H100000


Statement:
Public Const MCI_WAVE_SET_BITSPERSAMPLE = &H200000


Statement:
Public Const MCI_WAVE_STATUS_FORMATTAG = &H4001&


Statement:
Public Const MCI_WAVE_STATUS_CHANNELS = &H4002&


Statement:
Public Const MCI_WAVE_STATUS_SAMPLESPERSEC = &H4003&


Statement:
Public Const MCI_WAVE_STATUS_AVGBYTESPERSEC = &H4004&


Statement:
Public Const MCI_WAVE_STATUS_BLOCKALIGN = &H4005&


Statement:
Public Const MCI_WAVE_STATUS_BITSPERSAMPLE = &H4006&


Statement:
Public Const MCI_WAVE_STATUS_LEVEL = &H4007&


Statement:
Public Const MCI_WAVE_SET_ANYINPUT = &H4000000


Statement:
Public Const MCI_WAVE_SET_ANYOUTPUT = &H8000000


Statement:
Public Const MCI_WAVE_GETDEVCAPS_INPUTS = &H4001&


Statement:
Public Const MCI_WAVE_GETDEVCAPS_OUTPUTS = &H4002&


Statement:
Type MCI_WAVE_OPEN_PARMS
        dwCallback As Long
        wDeviceID As Long
        lpstrDeviceType As String
        lpstrElementName As String
        lpstrAlias As String
        dwBufferSeconds As Long
End Type


Statement:
Type MCI_WAVE_DELETE_PARMS
        dwCallback As Long
        dwFrom As Long
        dwTo As Long
End Type


Statement:
Type MCI_WAVE_SET_PARMS
        dwCallback As Long
        dwTimeFormat As Long
        dwAudio As Long
        wInput As Long
        wOutput As Long
        wFormatTag As Integer
        wReserved2 As Integer
        nChannels As Integer
        wReserved3 As Integer
        nSamplesPerSec As Long
        nAvgBytesPerSec As Long
        nBlockAlign As Integer
        wReserved4 As Integer
        wBitsPerSample As Integer
        wReserved5 As Integer
End Type


Statement:
Public Const MCI_SEQ_DIV_PPQN = (0 + MCI_SEQ_OFFSET)


Statement:
Public Const MCI_SEQ_DIV_SMPTE_24 = (1 + MCI_SEQ_OFFSET)


Statement:
Public Const MCI_SEQ_DIV_SMPTE_25 = (2 + MCI_SEQ_OFFSET)


Statement:
Public Const MCI_SEQ_DIV_SMPTE_30DROP = (3 + MCI_SEQ_OFFSET)


Statement:
Public Const MCI_SEQ_DIV_SMPTE_30 = (4 + MCI_SEQ_OFFSET)


Statement:
Public Const MCI_SEQ_FORMAT_SONGPTR = &H4001


Statement:
Public Const MCI_SEQ_STATUS_TEMPO = &H4002&


Statement:
Public Const MCI_SEQ_STATUS_PORT = &H4003&


Statement:
Public Const MCI_SEQ_STATUS_SLAVE = &H4007&


Statement:
Public Const MCI_SEQ_STATUS_MASTER = &H4008&


Statement:
Public Const MCI_SEQ_STATUS_OFFSET = &H4009&


Statement:
Public Const MCI_SEQ_STATUS_DIVTYPE = &H400A&


Statement:
Public Const MCI_SEQ_SET_TEMPO = &H10000


Statement:
Public Const MCI_SEQ_SET_SLAVE = &H40000


Statement:
Public Const MCI_SEQ_SET_MASTER = &H80000


Statement:
Public Const MCI_SEQ_SET_OFFSET = &H1000000


Statement:
Type MCI_SEQ_SET_PARMS
        dwCallback As Long
        dwTimeFormat As Long
        dwAudio As Long
        dwTempo As Long
        dwPort As Long
        dwSlave As Long
        dwMaster As Long
        dwOffset As Long
End Type


Statement:
Public Const MCI_ANIM_OPEN_PARENT = &H20000


Statement:
Public Const MCI_ANIM_OPEN_NOSTATIC = &H40000


Statement:
Public Const MCI_ANIM_PLAY_SPEED = &H10000


Statement:
Public Const MCI_ANIM_PLAY_REVERSE = &H20000


Statement:
Public Const MCI_ANIM_PLAY_FAST = &H40000


Statement:
Public Const MCI_ANIM_PLAY_SLOW = &H80000


Statement:
Public Const MCI_ANIM_PLAY_SCAN = &H100000


Statement:
Public Const MCI_ANIM_STEP_REVERSE = &H10000


Statement:
Public Const MCI_ANIM_STEP_FRAMES = &H20000


Statement:
Public Const MCI_ANIM_STATUS_SPEED = &H4001&


Statement:
Public Const MCI_ANIM_STATUS_FORWARD = &H4002&


Statement:
Public Const MCI_ANIM_STATUS_HWND = &H4003&


Statement:
Public Const MCI_ANIM_STATUS_HPAL = &H4004&


Statement:
Public Const MCI_ANIM_STATUS_STRETCH = &H4005&


Statement:
Public Const MCI_ANIM_INFO_TEXT = &H10000


Statement:
Public Const MCI_ANIM_GETDEVCAPS_CAN_REVERSE = &H4001&


Statement:
Public Const MCI_ANIM_GETDEVCAPS_FAST_RATE = &H4002&


Statement:
Public Const MCI_ANIM_GETDEVCAPS_SLOW_RATE = &H4003&


Statement:
Public Const MCI_ANIM_GETDEVCAPS_NORMAL_RATE = &H4004&


Statement:
Public Const MCI_ANIM_GETDEVCAPS_PALETTES = &H4006&


Statement:
Public Const MCI_ANIM_GETDEVCAPS_CAN_STRETCH = &H4007&


Statement:
Public Const MCI_ANIM_GETDEVCAPS_MAX_WINDOWS = &H4008&


Statement:
Public Const MCI_ANIM_REALIZE_NORM = &H10000


Statement:
Public Const MCI_ANIM_REALIZE_BKGD = &H20000


Statement:
Public Const MCI_ANIM_WINDOW_HWND = &H10000


Statement:
Public Const MCI_ANIM_WINDOW_STATE = &H40000


Statement:
Public Const MCI_ANIM_WINDOW_TEXT = &H80000


Statement:
Public Const MCI_ANIM_WINDOW_ENABLE_STRETCH = &H100000


Statement:
Public Const MCI_ANIM_WINDOW_DISABLE_STRETCH = &H200000


Statement:
Public Const MCI_ANIM_WINDOW_DEFAULT = &H0&


Statement:
Public Const MCI_ANIM_PUT_SOURCE = &H20000      '  also  MCI_WHERE


Statement:
Public Const MCI_ANIM_PUT_DESTINATION = &H40000      '  also  MCI_WHERE


Statement:
Public Const MCI_ANIM_WHERE_SOURCE = &H20000


Statement:
Public Const MCI_ANIM_WHERE_DESTINATION = &H40000


Statement:
Public Const MCI_ANIM_UPDATE_HDC = &H20000


Statement:
Type MCI_ANIM_OPEN_PARMS
        dwCallback As Long
        wDeviceID As Long
        lpstrDeviceType As String
        lpstrElementName As String
        lpstrAlias As String
        dwStyle As Long
        hWndParent As Long
End Type


Statement:
Type MCI_ANIM_PLAY_PARMS
        dwCallback As Long
        dwFrom As Long
        dwTo As Long
        dwSpeed As Long
End Type


Statement:
Type MCI_ANIM_STEP_PARMS
        dwCallback As Long
        dwFrames As Long
End Type


Statement:
Type MCI_ANIM_WINDOW_PARMS
        dwCallback As Long
        hwnd As Long
        nCmdShow As Long
        lpstrText As String
End Type


Statement:
Type MCI_ANIM_RECT_PARMS
        dwCallback As Long
        rc As Rect
End Type


Statement:
Type MCI_ANIM_UPDATE_PARMS
        dwCallback As Long
        rc As Rect
        hdc As Long
End Type


Statement:
Public Const MCI_OVLY_OPEN_PARENT = &H20000


Statement:
Public Const MCI_OVLY_STATUS_HWND = &H4001&


Statement:
Public Const MCI_OVLY_STATUS_STRETCH = &H4002&


Statement:
Public Const MCI_OVLY_INFO_TEXT = &H10000


Statement:
Public Const MCI_OVLY_GETDEVCAPS_CAN_STRETCH = &H4001&


Statement:
Public Const MCI_OVLY_GETDEVCAPS_CAN_FREEZE = &H4002&


Statement:
Public Const MCI_OVLY_GETDEVCAPS_MAX_WINDOWS = &H4003&


Statement:
Public Const MCI_OVLY_WINDOW_HWND = &H10000


Statement:
Public Const MCI_OVLY_WINDOW_STATE = &H40000


Statement:
Public Const MCI_OVLY_WINDOW_TEXT = &H80000


Statement:
Public Const MCI_OVLY_WINDOW_ENABLE_STRETCH = &H100000


Statement:
Public Const MCI_OVLY_WINDOW_DISABLE_STRETCH = &H200000


Statement:
Public Const MCI_OVLY_WINDOW_DEFAULT = &H0&


Statement:
Public Const MCI_OVLY_PUT_SOURCE = &H20000


Statement:
Public Const MCI_OVLY_PUT_DESTINATION = &H40000


Statement:
Public Const MCI_OVLY_PUT_FRAME = &H80000


Statement:
Public Const MCI_OVLY_PUT_VIDEO = &H100000


Statement:
Public Const MCI_OVLY_WHERE_SOURCE = &H20000


Statement:
Public Const MCI_OVLY_WHERE_DESTINATION = &H40000


Statement:
Public Const MCI_OVLY_WHERE_FRAME = &H80000


Statement:
Public Const MCI_OVLY_WHERE_VIDEO = &H100000


Statement:
Type MCI_OVLY_OPEN_PARMS
        dwCallback As Long
        wDeviceID As Long
        lpstrDeviceType As String
        lpstrElementName As String
        lpstrAlias As String
        dwStyle As Long
        hWndParent As Long
End Type


Statement:
Type MCI_OVLY_WINDOW_PARMS
        dwCallback As Long
        hwnd As Long
        nCmdShow As Long
        lpstrText As String
End Type


Statement:
Type MCI_OVLY_RECT_PARMS
        dwCallback As Long
        rc As Rect
End Type


Statement:
Type MCI_OVLY_SAVE_PARMS
        dwCallback As Long
        lpFileName As String
        rc As Rect
End Type


Statement:
Type MCI_OVLY_LOAD_PARMS
        dwCallback As Long
        lpFileName As String
        rc As Rect
End Type


Statement:
Public Const CAPS1 = 94              '  other caps


Statement:
Public Const C1_TRANSPARENT = &H1     '  new raster cap


Statement:
Public Const NEWTRANSPARENT = 3  '  use with SetBkMode()


Statement:
Public Const QUERYROPSUPPORT = 40  '  use to determine ROP support


Statement:
Public Const SELECTDIB = 41  '  DIB.DRV select dib escape


Statement:
Public Const SE_ERR_ASSOCINCOMPLETE = 27


Statement:
Type PRINTER_INFO_1
        flags As Long
        pDescription As String
        pName As String
        pComment As String
End Type


Statement:
Type PRINTER_INFO_2
        pServerName As String
        pPrinterName As String
        pShareName As String
        pPortName As String
        pDriverName As String
        pComment As String
        pLocation As String
        pDevMode As DEVMODE
        pSepFile As String
        pPrintProcessor As String
        pDatatype As String
        pParameters As String
        pSecurityDescriptor As SECURITY_DESCRIPTOR
        Attributes As Long
        Priority As Long
        DefaultPriority As Long
        StartTime As Long
        UntilTime As Long
        Status As Long
        cJobs As Long
        AveragePPM As Long
End Type


Statement:
Type PRINTER_INFO_3
        pSecurityDescriptor As SECURITY_DESCRIPTOR
End Type


Statement:
Public Const PRINTER_STATUS_PAUSED = &H1


Statement:
Public Const PRINTER_STATUS_PENDING_DELETION = &H4


Statement:
Public Const PRINTER_STATUS_PAPER_JAM = &H8


Statement:
Public Const PRINTER_STATUS_PAPER_OUT = &H10


Statement:
Public Const PRINTER_STATUS_MANUAL_FEED = &H20


Statement:
Public Const PRINTER_STATUS_PAPER_PROBLEM = &H40


Statement:
Public Const PRINTER_STATUS_OFFLINE = &H80


Statement:
Public Const PRINTER_STATUS_IO_ACTIVE = &H100


Statement:
Public Const PRINTER_STATUS_BUSY = &H200


Statement:
Public Const PRINTER_STATUS_PRINTING = &H400


Statement:
Public Const PRINTER_STATUS_OUTPUT_BIN_FULL = &H800


Statement:
Public Const PRINTER_STATUS_NOT_AVAILABLE = &H1000


Statement:
Public Const PRINTER_STATUS_WAITING = &H2000


Statement:
Public Const PRINTER_STATUS_PROCESSING = &H4000


Statement:
Public Const PRINTER_STATUS_INITIALIZING = &H8000


Statement:
Public Const PRINTER_STATUS_WARMING_UP = &H10000


Statement:
Public Const PRINTER_STATUS_TONER_LOW = &H20000


Statement:
Public Const PRINTER_STATUS_NO_TONER = &H40000


Statement:
Public Const PRINTER_STATUS_PAGE_PUNT = &H80000


Statement:
Public Const PRINTER_STATUS_USER_INTERVENTION = &H100000


Statement:
Public Const PRINTER_STATUS_OUT_OF_MEMORY = &H200000


Statement:
Public Const PRINTER_STATUS_DOOR_OPEN = &H400000


Statement:
Public Const PRINTER_ATTRIBUTE_QUEUED = &H1


Statement:
Public Const PRINTER_ATTRIBUTE_DIRECT = &H2


Statement:
Public Const PRINTER_ATTRIBUTE_DEFAULT = &H4


Statement:
Public Const PRINTER_ATTRIBUTE_SHARED = &H8


Statement:
Public Const PRINTER_ATTRIBUTE_NETWORK = &H10


Statement:
Public Const PRINTER_ATTRIBUTE_HIDDEN = &H20


Statement:
Public Const PRINTER_ATTRIBUTE_LOCAL = &H40


Statement:
Type JOB_INFO_1
        JobId As Long
        pPrinterName As String
        pMachineName As String
        pUserName As String
        pDocument As String
        pDatatype As String
        pStatus As String
        Status As Long
        Priority As Long
        Position As Long
        TotalPages As Long
        PagesPrinted As Long
        Submitted As SYSTEMTIME
End Type


Statement:
Type JOB_INFO_2
        JobId As Long
        pPrinterName As String
        pMachineName As String
        pUserName As String
        pDocument As String
        pNotifyName As String
        pDatatype As String
        pPrintProcessor As String
        pParameters As String
        pDriverName As String
        pDevMode As DEVMODE
        pStatus As String
        pSecurityDescriptor As SECURITY_DESCRIPTOR
        Status As Long
        Priority As Long
        Position As Long
        StartTime As Long
        UntilTime As Long
        TotalPages As Long
        Size As Long
        Submitted As SYSTEMTIME
        time As Long
        PagesPrinted As Long
End Type


Statement:
Public Const JOB_POSITION_UNSPECIFIED = 0


Statement:
Type ADDJOB_INFO_1
        Path As String
        JobId As Long
End Type


Statement:
Type DRIVER_INFO_1
        pName As String
End Type


Statement:
Type DRIVER_INFO_2
        cVersion As Long
        pName As String
        pEnvironment As String
        pDriverPath As String
        pDataFile As String
        pConfigFile As String
End Type


Statement:
Type DOC_INFO_1
        pDocName As String
        pOutputFile As String
        pDatatype As String
End Type


Statement:
Type FORM_INFO_1
        pName As String
        Size As SIZEL
        ImageableArea As RECTL
End Type


Statement:
Type PRINTPROCESSOR_INFO_1
        pName As String
End Type


Statement:
Type PORT_INFO_1
        pName As String
End Type


Statement:
Type MONITOR_INFO_1
        pName As String
End Type


Statement:
Type MONITOR_INFO_2
        pName As String
        pEnvironment As String
        pDLLName As String
End Type


Statement:
Type DATATYPES_INFO_1
        pName As String
End Type


Statement:
Type PRINTER_DEFAULTS
        pDatatype As String
        pDevMode As DEVMODE
        DesiredAccess As Long
End Type


Statement:
Type PRINTER_INFO_4
	pPrinterName As String
	pServerName As String
	Attributes As Long
End Type


Statement:
Type PRINTER_INFO_5
        pPrinterName As String
        pPortName As String
        Attributes As Long
        DeviceNotSelectedTimeout As Long
        TransmissionRetryTimeout As Long
End Type


Statement:
Public Const PRINTER_CONTROL_SET_STATUS = 4


Statement:
Public Const PRINTER_ATTRIBUTE_WORK_OFFLINE = &H400


Statement:
Public Const PRINTER_ATTRIBUTE_ENABLE_BIDI = &H800


Statement:
Public Const JOB_STATUS_USER_INTERVENTION = &H10000


Statement:
Type DRIVER_INFO_3
        cVersion As Long
        pName As String                    '  QMS 810
        pEnvironment As String             '  Win32 x86
        pDriverPath As String              '  c:\drivers\pscript.dll
        pDataFile As String                '  c:\drivers\QMS810.PPD
        pConfigFile As String              '  c:\drivers\PSCRPTUI.DLL
        pHelpFile As String                '  c:\drivers\PSCRPTUI.HLP
        pDependentFiles As String          '
        pMonitorName As String             '  "PJL monitor"
        pDefaultDataType As String         '  "EMF"
End Type


Statement:
Type DOC_INFO_2
        pDocName As String
        pOutputFile As String
        pDatatype As String
        dwMode As Long
        JobId As Long
End Type


Statement:
Public Const DI_CHANNEL = 1                  '  start direct read/write channel,


Statement:
Type PORT_INFO_2
        pPortName As String
        pMonitorName As String
        pDescription As String
        fPortType As Long
        Reserved As Long
End Type


Statement:
Public Const PORT_TYPE_NET_ATTACHED = &H8


Statement:
Declare Function EnumPrinters Lib "winspool.drv" Alias "EnumPrintersA" (ByVal flags As Long, ByVal name As String, ByVal Level As Long, pPrinterEnum As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long


Statement:
Declare Function EnumPrinterPropertySheets Lib "winspool.drv" Alias "EnumPrinterPropertySheets" (hPrinter As Long, hwnd As Long, lpfnAdd As Long, ByVal lParam As Long) As Long


Statement:
Public Const PRINTER_ENUM_CONNECTIONS = &H4


Statement:
Public Const PRINTER_ENUM_FAVORITE = &H4


Statement:
Public Const PRINTER_ENUM_NETWORK = &H40


Statement:
Public Const PRINTER_ENUM_EXPAND = &H4000


Statement:
Public Const PRINTER_ENUM_CONTAINER = &H8000


Statement:
Public Const PRINTER_ENUM_ICONMASK = &HFF0000


Statement:
Public Const PRINTER_ENUM_ICON1 = &H10000


Statement:
Public Const PRINTER_ENUM_ICON2 = &H20000


Statement:
Public Const PRINTER_ENUM_ICON3 = &H40000


Statement:
Public Const PRINTER_ENUM_ICON4 = &H80000


Statement:
Public Const PRINTER_ENUM_ICON5 = &H100000


Statement:
Public Const PRINTER_ENUM_ICON6 = &H200000


Statement:
Public Const PRINTER_ENUM_ICON7 = &H400000


Statement:
Public Const PRINTER_ENUM_ICON8 = &H800000


Statement:
Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long


Statement:
Declare Function ResetPrinter Lib "winspool.drv" Alias "ResetPrinterA" (ByVal hPrinter As Long, pDefault As PRINTER_DEFAULTS) As Long


Statement:
Declare Function SetJob Lib "winspool.drv" Alias "SetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal Command As Long) As Long


Statement:
Declare Function GetJob Lib "winspool.drv" Alias "GetJobA" (ByVal hPrinter As Long, ByVal JobId As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long


Statement:
Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" (ByVal hPrinter As Long, ByVal FirstJob As Long, ByVal NoJobs As Long, ByVal Level As Long, pJob As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long


Statement:
Declare Function AddPrinter Lib "winspool.drv" Alias "AddPrinterA" (ByVal pName As String, ByVal Level As Long, pPrinter As Byte) As Long


Statement:
Declare Function AddPrinterDriver Lib "winspool.drv" Alias "AddPrinterDriverA" (ByVal pName As String, ByVal Level As Long, pDriverInfor As Byte) As Long


Statement:
Declare Function EnumPrinterDrivers Lib "winspool.drv" Alias "EnumPrinterDriversA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, pDriverInfo As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcRetruned As Long) As Long


Statement:
Declare Function GetPrinterDriver Lib "winspool.drv" Alias "GetPrinterDriverA" (ByVal hPrinter As Long, ByVal pEnvironment As String, ByVal Level As Long, pDriverInfo As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long


Statement:
Declare Function GetPrinterDriverDirectory Lib "winspool.drv" Alias "GetPrinterDriverDirectoryA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, pDriverDirectory As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long


Statement:
Declare Function DeletePrinterDriver Lib "winspool.drv" Alias "DeletePrinterDriverA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pDriverName As String) As Long


Statement:
Declare Function AddPrintProcessor Lib "winspool.drv" Alias "AddPrintProcessorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pPathName As String, ByVal pPrintProcessorName As String) As Long


Statement:
Declare Function EnumPrintProcessors Lib "winspool.drv" Alias "EnumPrintProcessorsA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, pPrintProcessorInfo As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long


Statement:
Declare Function GetPrintProcessorDirectory Lib "winspool.drv" Alias "GetPrintProcessorDirectoryA" (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Long, ByVal pPrintProcessorInfo As String, ByVal cdBuf As Long, pcbNeeded As Long) As Long


Statement:
Declare Function EnumPrintProcessorDatatypes Lib "winspool.drv" Alias "EnumPrintProcessorDatatypesA" (ByVal pName As String, ByVal pPrintProcessorName As String, ByVal Level As Long, pDatatypes As Byte, ByVal cdBuf As Long, pcbNeeded As Long, pcRetruned As Long) As Long


Statement:
Declare Function DeletePrintProcessor Lib "winspool.drv" Alias "DeletePrintProcessorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pPrintProcessorName As String) As Long


Statement:
Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As Byte) As Long


Statement:
Declare Function StartPagePrinter Lib "winspool.drv" Alias "StartPagePrinter" (ByVal hPrinter As Long) As Long


Statement:
Declare Function WritePrinter Lib "winspool.drv" Alias "WritePrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long


Statement:
Declare Function EndPagePrinter Lib "winspool.drv" Alias "EndPagePrinter" (ByVal hPrinter As Long) As Long


Statement:
Declare Function AbortPrinter Lib "winspool.drv" Alias "AbortPrinter" (ByVal hPrinter As Long) As Long


Statement:
Declare Function ReadPrinter Lib "winspool.drv" Alias "ReadPrinter" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pNoBytesRead As Long) As Long


Statement:
Declare Function EndDocPrinter Lib "winspool.drv" Alias "EndDocPrinter" (ByVal hPrinter As Long) As Long


Statement:
Declare Function AddJob Lib "winspool.drv" Alias "AddJobA" (ByVal hPrinter As Long, ByVal Level As Long, pData As Byte, ByVal cdBuf As Long, pcbNeeded As Long) As Long


Statement:
Declare Function ScheduleJob Lib "winspool.drv" Alias "ScheduleJob" (ByVal hPrinter As Long, ByVal JobId As Long) As Long


Statement:
Declare Function PrinterProperties Lib "winspool.drv" Alias "PrinterProperties" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long


Statement:
Declare Function DocumentProperties Lib "winspool.drv" Alias "DocumentPropertiesA" (ByVal hwnd As Long, ByVal hPrinter As Long, ByVal pDeviceName As String, pDevModeOutput As DEVMODE, pDevModeInput As DEVMODE, ByVal fMode As Long) As Long


Statement:
Declare Function AdvancedDocumentProperties Lib "winspool.drv" Alias "AdvancedDocumentPropertiesA" (ByVal hwnd As Long, ByVal hPrinter As Long, ByVal pDeviceName As String, pDevModeOutput As DEVMODE, pDevModeInput As DEVMODE) As Long


Statement:
Declare Function GetPrinterData Lib "winspool.drv" Alias "GetPrinterDataA" (ByVal hPrinter As Long, ByVal pValueName As String, pType As Long, pData As Byte, ByVal nSize As Long, pcbNeeded As Long) As Long


Statement:
Declare Function SetPrinterData Lib "winspool.drv" Alias "SetPrinterDataA" (ByVal hPrinter As Long, ByVal pValueName As String, ByVal dwType As Long, pData As Byte, ByVal cbData As Long) As Long


Statement:
Declare Function WaitForPrinterChange Lib "winspool.drv" Alias "WaitForPrinterChange" (ByVal hPrinter As Long, ByVal flags As Long) As Long


Statement:
Public Const PRINTER_CHANGE_ADD_PRINTER = &H1


Statement:
Public Const PRINTER_CHANGE_SET_PRINTER = &H2


Statement:
Public Const PRINTER_CHANGE_DELETE_PRINTER = &H4


Statement:
Public Const PRINTER_CHANGE_PRINTER = &HFF


Statement:
Public Const PRINTER_CHANGE_ADD_JOB = &H100


Statement:
Public Const PRINTER_CHANGE_SET_JOB = &H200


Statement:
Public Const PRINTER_CHANGE_DELETE_JOB = &H400


Statement:
Public Const PRINTER_CHANGE_WRITE_JOB = &H800


Statement:
Public Const PRINTER_CHANGE_JOB = &HFF00


Statement:
Public Const PRINTER_CHANGE_ADD_FORM = &H10000


Statement:
Public Const PRINTER_CHANGE_SET_FORM = &H20000


Statement:
Public Const PRINTER_CHANGE_DELETE_FORM = &H40000


Statement:
Public Const PRINTER_CHANGE_FORM = &H70000


Statement:
Public Const PRINTER_CHANGE_ADD_PORT = &H100000


Statement:
Public Const PRINTER_CHANGE_CONFIGURE_PORT = &H200000


Statement:
Public Const PRINTER_CHANGE_DELETE_PORT = &H400000


Statement:
Public Const PRINTER_CHANGE_PORT = &H700000


Statement:
Public Const PRINTER_CHANGE_ADD_PRINT_PROCESSOR = &H1000000


Statement:
Public Const PRINTER_CHANGE_DELETE_PRINT_PROCESSOR = &H4000000


Statement:
Public Const PRINTER_CHANGE_PRINT_PROCESSOR = &H7000000


Statement:
Public Const PRINTER_CHANGE_ADD_PRINTER_DRIVER = &H10000000


Statement:
Public Const PRINTER_CHANGE_DELETE_PRINTER_DRIVER = &H40000000


Statement:
Public Const PRINTER_CHANGE_PRINTER_DRIVER = &H70000000


Statement:
Public Const PRINTER_CHANGE_TIMEOUT = &H80000000


Statement:
Public Const PRINTER_CHANGE_ALL = &H7777FFFF


Statement:
Declare Function PrinterMessageBox Lib "winspool.drv" Alias "PrinterMessageBoxA" (ByVal hPrinter As Long, ByVal error As Long, ByVal hwnd As Long, ByVal pText As String, ByVal pCaption As String, ByVal dwType As Long) As Long


Statement:
Public Const PRINTER_ERROR_INFORMATION = &H80000000


Statement:
Public Const PRINTER_ERROR_WARNING = &H40000000


Statement:
Public Const PRINTER_ERROR_SEVERE = &H20000000


Statement:
Public Const PRINTER_ERROR_OUTOFPAPER = &H1


Statement:
Public Const PRINTER_ERROR_OUTOFTONER = &H4


Statement:
Declare Function ClosePrinter Lib "winspool.drv" Alias "ClosePrinter" (ByVal hPrinter As Long) As Long


Statement:
Declare Function AddForm Lib "winspool.drv" Alias "AddFormA" (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte) As Long


Statement:
Declare Function DeleteForm Lib "winspool.drv" Alias "DeleteFormA" (ByVal hPrinter As Long, ByVal pFormName As String) As Long


Statement:
Declare Function GetForm Lib "winspool.drv" Alias "GetFormA" (ByVal hPrinter As Long, ByVal pFormName As String, ByVal Level As Long, pForm As Byte, ByVal cbBuf As Long, pcbNeeded As Long) As Long


Statement:
Declare Function SetForm Lib "winspool.drv" Alias "SetFormA" (ByVal hPrinter As Long, ByVal pFormName As String, ByVal Level As Long, pForm As Byte) As Long


Statement:
Declare Function EnumForms Lib "winspool.drv" Alias "EnumFormsA" (ByVal hPrinter As Long, ByVal Level As Long, pForm As Byte, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long


Statement:
Declare Function EnumMonitors Lib "winspool.drv" Alias "EnumMonitorsA" (ByVal pName As String, ByVal Level As Long, pMonitors As Byte, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long


Statement:
Declare Function AddMonitor Lib "winspool.drv" Alias "AddMonitorA" (ByVal pName As String, ByVal Level As Long, pMonitors As Byte) As Long


Statement:
Declare Function DeleteMonitor Lib "winspool.drv" Alias "DeleteMonitorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pMonitorName As String) As Long


Statement:
Declare Function EnumPorts Lib "winspool.drv" Alias "EnumPortsA" (ByVal pName As String, ByVal Level As Long, ByVal lpbPorts As Long, ByVal cbBuf As Long, pcbNeeded As Long, pcReturned As Long) As Long


Statement:
Declare Function AddPort Lib "winspool.drv" Alias "AddPortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pMonitorName As String) As Long


Statement:
Declare Function ConfigurePort Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long


Statement:
Declare Function DeletePort Lib "winspool.drv" Alias "DeletePortA" (ByVal pName As String, ByVal hwnd As Long, ByVal pPortName As String) As Long


Statement:
Declare Function AddPrinterConnection Lib "winspool.drv" Alias "AddPrinterConnectionA" (ByVal pName As String) As Long


Statement:
Declare Function DeletePrinterConnection Lib "winspool.drv" Alias "DeletePrinterConnectionA" (ByVal pName As String) As Long


Statement:
Declare Function ConnectToPrinterDlg Lib "winspool.drv" Alias "ConnectToPrinterDlg" (ByVal hwnd As Long, ByVal flags As Long) As Long


Statement:
Type PROVIDOR_INFO_1
        pName As String
        pEnvironment As String
        pDLLName As String
End Type


Statement:
Declare Function AddPrintProvidor Lib "winspool.drv" Alias "AddPrintProvidorA" (ByVal pName As String, ByVal Level As Long, pProvidorInfo As Byte) As Long


Statement:
Declare Function DeletePrintProvidor Lib "winspool.drv" Alias "DeletePrintProvidorA" (ByVal pName As String, ByVal pEnvironment As String, ByVal pPrintProvidorName As String) As Long


Statement:
Public Const SERVER_ACCESS_ADMINISTER = &H1


Statement:
Public Const SERVER_ACCESS_ENUMERATE = &H2


Statement:
Public Const PRINTER_ACCESS_ADMINISTER = &H4


Statement:
Public Const JOB_ACCESS_ADMINISTER = &H10


Statement:
Public Const SERVER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SERVER_ACCESS_ADMINISTER Or SERVER_ACCESS_ENUMERATE)


Statement:
Public Const SERVER_READ = (STANDARD_RIGHTS_READ Or SERVER_ACCESS_ENUMERATE)


Statement:
Public Const SERVER_WRITE = (STANDARD_RIGHTS_WRITE Or SERVER_ACCESS_ADMINISTER Or SERVER_ACCESS_ENUMERATE)


Statement:
Public Const SERVER_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or SERVER_ACCESS_ENUMERATE)


Statement:
Public Const PRINTER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or PRINTER_ACCESS_ADMINISTER Or PRINTER_ACCESS_USE)


Statement:
Public Const PRINTER_READ = (STANDARD_RIGHTS_READ Or PRINTER_ACCESS_USE)


Statement:
Public Const PRINTER_WRITE = (STANDARD_RIGHTS_WRITE Or PRINTER_ACCESS_USE)


Statement:
Public Const PRINTER_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or PRINTER_ACCESS_USE)


Statement:
Public Const JOB_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or JOB_ACCESS_ADMINISTER)


Statement:
Public Const JOB_READ = (STANDARD_RIGHTS_READ Or JOB_ACCESS_ADMINISTER)


Statement:
Public Const JOB_WRITE = (STANDARD_RIGHTS_WRITE Or JOB_ACCESS_ADMINISTER)


Statement:
Public Const JOB_EXECUTE = (STANDARD_RIGHTS_EXECUTE Or JOB_ACCESS_ADMINISTER)


Statement:
Public Const RESOURCETYPE_UNKNOWN = &HFFFF


Statement:
Public Const RESOURCEUSAGE_CONNECTABLE = &H1


Statement:
Public Const RESOURCEUSAGE_CONTAINER = &H2


Statement:
Public Const RESOURCEUSAGE_RESERVED = &H80000000


Statement:
Public Const RESOURCEDISPLAYTYPE_GENERIC = &H0


Statement:
Public Const RESOURCEDISPLAYTYPE_DOMAIN = &H1


Statement:
Public Const RESOURCEDISPLAYTYPE_SERVER = &H2


Statement:
Public Const RESOURCEDISPLAYTYPE_SHARE = &H3


Statement:
Public Const RESOURCEDISPLAYTYPE_FILE = &H4


Statement:
Public Const RESOURCEDISPLAYTYPE_GROUP = &H5


Statement:
Type NETRESOURCE
        dwScope As Long
        dwType As Long
        dwDisplayType As Long
        dwUsage As Long
        lpLocalName As String
        lpRemoteName As String
        lpComment As String
        lpProvider As String
End Type


Statement:
Public Const CONNECT_UPDATE_PROFILE = &H1


Statement:
Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long


Statement:
Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long


Statement:
Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long


Statement:
Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long


Statement:
Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long


Statement:
Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long


Statement:
Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long


Statement:
Declare Function WNetCloseEnum Lib "mpr.dll" Alias "WNetCloseEnum" (ByVal hEnum As Long) As Long


Statement:
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long


Statement:
Declare Function WNetConnectionDialog Lib "mpr.dll" Alias "WNetConnectionDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long


Statement:
Declare Function WNetDisconnectDialog Lib "mpr.dll" Alias "WNetDisconnectDialog" (ByVal hwnd As Long, ByVal dwType As Long) As Long


Statement:
Declare Function WNetGetLastError Lib "mpr.dll" Alias "WNetGetLastErrorA" (lpError As Long, ByVal lpErrorBuf As String, ByVal nErrorBufSize As Long, ByVal lpNameBuf As String, ByVal nNameBufSize As Long) As Long


Statement:
Public Const WN_NOT_SUPPORTED = ERROR_NOT_SUPPORTED


Statement:
Public Const WN_NET_ERROR = ERROR_UNEXP_NET_ERR


Statement:
Public Const WN_MORE_DATA = ERROR_MORE_DATA


Statement:
Public Const WN_BAD_POINTER = ERROR_INVALID_ADDRESS


Statement:
Public Const WN_BAD_VALUE = ERROR_INVALID_PARAMETER


Statement:
Public Const WN_BAD_PASSWORD = ERROR_INVALID_PASSWORD


Statement:
Public Const WN_ACCESS_DENIED = ERROR_ACCESS_DENIED


Statement:
Public Const WN_FUNCTION_BUSY = ERROR_BUSY


Statement:
Public Const WN_WINDOWS_ERROR = ERROR_UNEXP_NET_ERR


Statement:
Public Const WN_BAD_USER = ERROR_BAD_USERNAME


Statement:
Public Const WN_OUT_OF_MEMORY = ERROR_NOT_ENOUGH_MEMORY


Statement:
Public Const WN_NO_NETWORK = ERROR_NO_NETWORK


Statement:
Public Const WN_EXTENDED_ERROR = ERROR_EXTENDED_ERROR


Statement:
Public Const WN_NOT_CONNECTED = ERROR_NOT_CONNECTED


Statement:
Public Const WN_OPEN_FILES = ERROR_OPEN_FILES


Statement:
Public Const WN_DEVICE_IN_USE = ERROR_DEVICE_IN_USE


Statement:
Public Const WN_BAD_NETNAME = ERROR_BAD_NET_NAME


Statement:
Public Const WN_BAD_LOCALNAME = ERROR_BAD_DEVICE


Statement:
Public Const WN_ALREADY_CONNECTED = ERROR_ALREADY_ASSIGNED


Statement:
Public Const WN_DEVICE_ERROR = ERROR_GEN_FAILURE


Statement:
Public Const WN_CONNECTION_CLOSED = ERROR_CONNECTION_UNAVAIL


Statement:
Public Const WN_NO_NET_OR_BAD_PATH = ERROR_NO_NET_OR_BAD_PATH


Statement:
Public Const WN_BAD_PROVIDER = ERROR_BAD_PROVIDER


Statement:
Public Const WN_CANNOT_OPEN_PROFILE = ERROR_CANNOT_OPEN_PROFILE


Statement:
Public Const WN_BAD_PROFILE = ERROR_BAD_PROFILE


Statement:
Public Const WN_BAD_HANDLE = ERROR_INVALID_HANDLE


Statement:
Public Const WN_NO_MORE_ENTRIES = ERROR_NO_MORE_ITEMS


Statement:
Public Const WN_NOT_CONTAINER = ERROR_NOT_CONTAINER


Statement:
Public Const NCBNAMSZ = 16  '  absolute length of a net name


Statement:
Public Const MAX_LANA = 254  '  lana's in range 0 to MAX_LANA


Statement:
Type NCB
        ncb_command As Integer
        ncb_retcode As Integer
        ncb_lsn As Integer
        ncb_num As Integer
        ncb_buffer As String
        ncb_length As Integer
        ncb_callname As String * NCBNAMSZ
        ncb_name As String * NCBNAMSZ
        ncb_rto As Integer
        ncb_sto As Integer
        ncb_post As Long
        ncb_lana_num As Integer
        ncb_cmd_cplt As Integer
        ncb_reserve(10) As Byte	' Reserved, must be 0
        ncb_event As Long
End Type


Statement:
Type ADAPTER_STATUS
        adapter_address As String * 6
        rev_major As Integer
        reserved0 As Integer
        adapter_type As Integer
        rev_minor As Integer
        duration As Integer
        frmr_recv As Integer
        frmr_xmit As Integer
        iframe_recv_err As Integer
        xmit_aborts As Integer
        xmit_success As Long
        recv_success As Long
        iframe_xmit_err As Integer
        recv_buff_unavail As Integer
        t1_timeouts As Integer
        ti_timeouts As Integer
        Reserved1 As Long
        free_ncbs As Integer
        max_cfg_ncbs As Integer
        max_ncbs As Integer
        xmit_buf_unavail As Integer
        max_dgram_size As Integer
        pending_sess As Integer
        max_cfg_sess As Integer
        max_sess As Integer
        max_sess_pkt_size As Integer
        name_count As Integer
End Type


Statement:
Type NAME_BUFFER
        name  As String * NCBNAMSZ
        name_num As Integer
        name_flags As Integer
End Type


Statement:
Type SESSION_HEADER
        sess_name As Integer
        num_sess As Integer
        rcv_dg_outstanding As Integer
        rcv_any_outstanding As Integer
End Type


Statement:
Type SESSION_BUFFER
        lsn As Integer
        State As Integer
        local_name As String * NCBNAMSZ
        remote_name As String * NCBNAMSZ
        rcvs_outstanding As Integer
        sends_outstanding As Integer
End Type


Statement:
Type LANA_ENUM
        Length As Integer
        lana(MAX_LANA) As Integer
End Type


Statement:
Type FIND_NAME_HEADER
        node_count As Integer
        Reserved As Integer
        unique_group As Integer
End Type


Statement:
Type FIND_NAME_BUFFER
        Length As Integer
        access_control As Integer
        frame_control As Integer
        destination_addr(6) As Integer
        source_addr(6) As Integer
        routing_info(18) As Integer
End Type


Statement:
Type ACTION_HEADER
        transport_id As Long
        action_code As Integer
        Reserved As Integer
End Type


Statement:
Public Const NCBCALL = &H10  '  NCB CALL


Statement:
Public Const NCBLISTEN = &H11  '  NCB LISTEN


Statement:
Public Const NCBHANGUP = &H12  '  NCB HANG UP


Statement:
Public Const NCBSEND = &H14  '  NCB SEND


Statement:
Public Const NCBRECV = &H15  '  NCB RECEIVE


Statement:
Public Const NCBRECVANY = &H16  '  NCB RECEIVE ANY


Statement:
Public Const NCBCHAINSEND = &H17  '  NCB CHAIN SEND


Statement:
Public Const NCBDGSEND = &H20  '  NCB SEND DATAGRAM


Statement:
Public Const NCBDGRECV = &H21  '  NCB RECEIVE DATAGRAM


Statement:
Public Const NCBDGSENDBC = &H22  '  NCB SEND BROADCAST DATAGRAM


Statement:
Public Const NCBDGRECVBC = &H23  '  NCB RECEIVE BROADCAST DATAGRAM


Statement:
Public Const NCBADDNAME = &H30  '  NCB ADD NAME


Statement:
Public Const NCBDELNAME = &H31  '  NCB DELETE NAME


Statement:
Public Const NCBRESET = &H32  '  NCB RESET


Statement:
Public Const NCBASTAT = &H33  '  NCB ADAPTER STATUS


Statement:
Public Const NCBSSTAT = &H34  '  NCB SESSION STATUS


Statement:
Public Const NCBCANCEL = &H35  '  NCB CANCEL


Statement:
Public Const NCBADDGRNAME = &H36  '  NCB ADD GROUP NAME


Statement:
Public Const NCBENUM = &H37  '  NCB ENUMERATE LANA NUMBERS


Statement:
Public Const NCBUNLINK = &H70  '  NCB UNLINK


Statement:
Public Const NCBSENDNA = &H71  '  NCB SEND NO ACK


Statement:
Public Const NCBCHAINSENDNA = &H72  '  NCB CHAIN SEND NO ACK


Statement:
Public Const NCBLANSTALERT = &H73  '  NCB LAN STATUS ALERT


Statement:
Public Const NCBACTION = &H77  '  NCB ACTION


Statement:
Public Const NCBFINDNAME = &H78  '  NCB FIND NAME


Statement:
Public Const NCBTRACE = &H79  '  NCB TRACE


Statement:
Public Const ASYNCH = &H80  '  high bit set == asynchronous


Statement:
Public Const NRC_GOODRET = &H0   '  good return


Statement:
Public Const NRC_BUFLEN = &H1   '  illegal buffer length


Statement:
Public Const NRC_ILLCMD = &H3   '  illegal command


Statement:
Public Const NRC_CMDTMO = &H5   '  command timed out


Statement:
Public Const NRC_INCOMP = &H6   '  message incomplete, issue another command


Statement:
Public Const NRC_BADDR = &H7   '  illegal buffer address


Statement:
Public Const NRC_SNUMOUT = &H8   '  session number out of range


Statement:
Public Const NRC_NORES = &H9   '  no resource available


Statement:
Public Const NRC_SCLOSED = &HA   '  session closed


Statement:
Public Const NRC_CMDCAN = &HB   '  command cancelled


Statement:
Public Const NRC_DUPNAME = &HD   '  duplicate name


Statement:
Public Const NRC_NAMTFUL = &HE   '  name table full


Statement:
Public Const NRC_ACTSES = &HF   '  no deletions, name has active sessions


Statement:
Public Const NRC_LOCTFUL = &H11  '  local session table full


Statement:
Public Const NRC_REMTFUL = &H12  '  remote session table full


Statement:
Public Const NRC_ILLNN = &H13  '  illegal name number


Statement:
Public Const NRC_NOCALL = &H14  '  no callname


Statement:
Public Const NRC_NOWILD = &H15  '  cannot put  in NCB_NAME


Statement:
Public Const NRC_INUSE = &H16  '  name in use on remote adapter


Statement:
Public Const NRC_NAMERR = &H17  '  name deleted


Statement:
Public Const NRC_SABORT = &H18  '  session ended abnormally


Statement:
Public Const NRC_NAMCONF = &H19  '  name conflict detected


Statement:
Public Const NRC_IFBUSY = &H21  '  interface busy, IRET before retrying


Statement:
Public Const NRC_TOOMANY = &H22  '  too many commands outstanding, retry later


Statement:
Public Const NRC_BRIDGE = &H23  '  ncb_lana_num field invalid


Statement:
Public Const NRC_CANOCCR = &H24  '  command completed while cancel occurring


Statement:
Public Const NRC_CANCEL = &H26  '  command not valid to cancel


Statement:
Public Const NRC_DUPENV = &H30  '  name defined by anther local process


Statement:
Public Const NRC_ENVNOTDEF = &H34  '  environment undefined. RESET required


Statement:
Public Const NRC_OSRESNOTAV = &H35  '  required OS resources exhausted


Statement:
Public Const NRC_MAXAPPS = &H36  '  max number of applications exceeded


Statement:
Public Const NRC_NOSAPS = &H37  '  no saps available for netbios


Statement:
Public Const NRC_NORESOURCES = &H38  '  requested resources are not available


Statement:
Public Const NRC_INVADDRESS = &H39  '  invalid ncb address or length > segment


Statement:
Public Const NRC_INVDDID = &H3B  '  invalid NCB DDID


Statement:
Public Const NRC_LOCKFAIL = &H3C  '  lock of user area failed


Statement:
Public Const NRC_OPENERR = &H3F  '  NETBIOS not loaded


Statement:
Public Const NRC_SYSTEM = &H40  '  system error


Statement:
Public Const NRC_PENDING = &HFF  '  asynchronous command is not yet finished


Statement:
Declare Function Netbios Lib "netapi32.dll" Alias "Netbios" (pncb As NCB) As Byte


Statement:
Public Const EXCEPTION_EXECUTE_HANDLER = 1


Statement:
Public Const EXCEPTION_CONTINUE_SEARCH = 0


Statement:
Public Const EXCEPTION_CONTINUE_EXECUTION = -1


Statement:
Type CRGB
        bRed As Byte
        bGreen As Byte
        bBlue As Byte
        bExtra As Byte
End Type


Statement:
Public Const HKEY_CLASSES_ROOT = &H80000000


Statement:
Public Const HKEY_CURRENT_USER = &H80000001


Statement:
Public Const HKEY_LOCAL_MACHINE = &H80000002


Statement:
Public Const HKEY_PERFORMANCE_DATA = &H80000004


Statement:
Public Const HKEY_CURRENT_CONFIG = &H80000005


Statement:
Declare Function RegCloseKey Lib "advapi32.dll" Alias "RegCloseKey" (ByVal hKey As Long) As Long


Statement:
Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" (ByVal lpMachineName As String, ByVal hKey As Long, phkResult As Long) As Long


Statement:
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Statement:
Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long


Statement:
Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long


Statement:
Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long


Statement:
Declare Function RegEnumKey Lib "advapi32.dll" Alias "RegEnumKeyA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, ByVal cbName As Long) As Long


Statement:
Declare Function RegEnumKeyEx Lib "advapi32.dll" Alias "RegEnumKeyExA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpName As String, lpcbName As Long, lpReserved As Long, ByVal lpClass As String, lpcbClass As Long, lpftLastWriteTime As FILETIME) As Long


Statement:
Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long


Statement:
Declare Function RegFlushKey Lib "advapi32.dll" Alias "RegFlushKey" (ByVal hKey As Long) As Long


Statement:
Declare Function RegGetKeySecurity Lib "advapi32.dll" Alias "RegGetKeySecurity" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR, lpcbSecurityDescriptor As Long) As Long


Statement:
Declare Function RegLoadKey Lib "advapi32.dll" Alias "RegLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpFile As String) As Long


Statement:
Declare Function RegNotifyChangeKeyValue Lib "advapi32.dll" Alias "RegNotifyChangeKeyValue" (ByVal hKey As Long, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long, ByVal hEvent As Long, ByVal fAsynchronus As Long) As Long


Statement:
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long


Statement:
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long


Statement:
Declare Function RegQueryInfoKey Lib "advapi32.dll" Alias "RegQueryInfoKeyA" (ByVal hKey As Long, ByVal lpClass As String, lpcbClass As Long, lpReserved As Long, lpcSubKeys As Long, lpcbMaxSubKeyLen As Long, lpcbMaxClassLen As Long, lpcValues As Long, lpcbMaxValueNameLen As Long, lpcbMaxValueLen As Long, lpcbSecurityDescriptor As Long, lpftLastWriteTime As FILETIME) As Long


Statement:
Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long


Statement:
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.


Statement:
Declare Function RegReplaceKey Lib "advapi32.dll" Alias "RegReplaceKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpNewFile As String, ByVal lpOldFile As String) As Long


Statement:
Declare Function RegRestoreKey Lib "advapi32.dll" Alias "RegRestoreKeyA" (ByVal hKey As Long, ByVal lpFile As String, ByVal dwFlags As Long) As Long


Statement:
Declare Function RegSaveKey Lib "advapi32.dll" Alias "RegSaveKeyA" (ByVal hKey As Long, ByVal lpFile As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long


Statement:
Declare Function RegSetKeySecurity Lib "advapi32.dll" Alias "RegSetKeySecurity" (ByVal hKey As Long, ByVal SecurityInformation As Long, pSecurityDescriptor As SECURITY_DESCRIPTOR) As Long


Statement:
Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long


Statement:
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.


Statement:
Declare Function RegUnLoadKey Lib "advapi32.dll" Alias "RegUnLoadKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long


Statement:
Declare Function InitiateSystemShutdown Lib "advapi32.dll" Alias "InitiateSystemShutdownA" (ByVal lpMachineName As String, ByVal lpMessage As String, ByVal dwTimeout As Long, ByVal bForceAppsClosed As Long, ByVal bRebootAfterShutdown As Long) As Long


Statement:
Declare Function AbortSystemShutdown Lib "advapi32.dll" Alias "AbortSystemShutdownA" (ByVal lpMachineName As String) As Long


Statement:
Public Const SERVICES_ACTIVE_DATABASE = "ServicesActive"


Statement:
Public Const SERVICES_FAILED_DATABASE = "ServicesFailed"


Statement:
Public Const SERVICE_STATE_ALL = (SERVICE_ACTIVE Or SERVICE_INACTIVE)


Statement:
Public Const SERVICE_CONTROL_PAUSE = &H2


Statement:
Public Const SERVICE_CONTROL_CONTINUE = &H3


Statement:
Public Const SERVICE_CONTROL_INTERROGATE = &H4


Statement:
Public Const SERVICE_CONTROL_SHUTDOWN = &H5


Statement:
Public Const SERVICE_START_PENDING = &H2


Statement:
Public Const SERVICE_CONTINUE_PENDING = &H5


Statement:
Public Const SERVICE_PAUSE_PENDING = &H6


Statement:
Public Const SERVICE_ACCEPT_PAUSE_CONTINUE = &H2


Statement:
Public Const SERVICE_ACCEPT_SHUTDOWN = &H4


Statement:
Public Const SC_MANAGER_CREATE_SERVICE = &H2


Statement:
Public Const SC_MANAGER_ENUMERATE_SERVICE = &H4


Statement:
Public Const SC_MANAGER_QUERY_LOCK_STATUS = &H10


Statement:
Public Const SC_MANAGER_MODIFY_BOOT_CONFIG = &H20


Statement:
Public Const SC_MANAGER_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SC_MANAGER_CONNECT Or SC_MANAGER_CREATE_SERVICE Or SC_MANAGER_ENUMERATE_SERVICE Or SC_MANAGER_LOCK Or SC_MANAGER_QUERY_LOCK_STATUS Or SC_MANAGER_MODIFY_BOOT_CONFIG)


Statement:
Public Const SERVICE_CHANGE_CONFIG = &H2


Statement:
Public Const SERVICE_ENUMERATE_DEPENDENTS = &H8


Statement:
Public Const SERVICE_PAUSE_CONTINUE = &H40


Statement:
Public Const SERVICE_USER_DEFINED_CONTROL = &H100


Statement:
Public Const SERVICE_ALL_ACCESS = (STANDARD_RIGHTS_REQUIRED Or SERVICE_QUERY_CONFIG Or SERVICE_CHANGE_CONFIG Or SERVICE_QUERY_STATUS Or SERVICE_ENUMERATE_DEPENDENTS Or SERVICE_START Or SERVICE_STOP Or SERVICE_PAUSE_CONTINUE Or SERVICE_INTERROGATE Or SERVICE_USER_DEFINED_CONTROL)


Statement:
Type SERVICE_STATUS
        dwServiceType As Long
        dwCurrentState As Long
        dwControlsAccepted As Long
        dwWin32ExitCode As Long
        dwServiceSpecificExitCode As Long
        dwCheckPoint As Long
        dwWaitHint As Long
End Type


Statement:
Type ENUM_SERVICE_STATUS
        lpServiceName As String
        lpDisplayName As String
        ServiceStatus As SERVICE_STATUS
End Type


Statement:
Type QUERY_SERVICE_LOCK_STATUS
        fIsLocked As Long
        lpLockOwner As String
        dwLockDuration As Long
End Type


Statement:
Type QUERY_SERVICE_CONFIG
        dwServiceType As Long
        dwStartType As Long
        dwErrorControl As Long
        lpBinaryPathName As String
        lpLoadOrderGroup As String
        dwTagId As Long
        lpDependencies As String
        lpServiceStartName As String
        lpDisplayName As String
End Type


Statement:
Type SERVICE_TABLE_ENTRY
        lpServiceName As String
        lpServiceProc As Long
End Type


Statement:
Declare Function ChangeServiceConfig Lib "advapi32.dll" Alias "ChangeServiceConfigA" (ByVal hService As Long, ByVal dwServiceType As Long, ByVal dwStartType As Long, ByVal dwErrorControl As Long, ByVal lpBinaryPathName As String, ByVal lpLoadOrderGroup As String, lpdwTagId As Long, ByVal lpDependencies As String, ByVal lpServiceStartName As String, ByVal lpPassword As String, ByVal lpDisplayName As String) As Long


Statement:
Declare Function CloseServiceHandle Lib "advapi32.dll" Alias "CloseServiceHandle" (ByVal hSCObject As Long) As Long


Statement:
Declare Function ControlService Lib "advapi32.dll" Alias "ControlService" (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As SERVICE_STATUS) As Long


Statement:
Declare Function CreateService Lib "advapi32.dll" Alias "CreateServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal lpDisplayName As String, ByVal dwDesiredAccess As Long, ByVal dwServiceType As Long, ByVal dwStartType As Long, ByVal dwErrorControl As Long, ByVal lpBinaryPathName As String, ByVal lpLoadOrderGroup As String, lpdwTagId As Long, ByVal lpDependencies As String, ByVal lp As String, ByVal lpPassword As String) As Long


Statement:
Declare Function DeleteService Lib "advapi32.dll" Alias "DeleteService" (ByVal hService As Long) As Long


Statement:
Declare Function EnumDependentServices Lib "advapi32.dll" Alias "EnumDependentServicesA" (ByVal hService As Long, ByVal dwServiceState As Long, lpServices As ENUM_SERVICE_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long) As Long


Statement:
Declare Function EnumServicesStatus Lib "advapi32.dll" Alias "EnumServicesStatusA" (ByVal hSCManager As Long, ByVal dwServiceType As Long, ByVal dwServiceState As Long, lpServices As ENUM_SERVICE_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long, lpResumeHandle As Long) As Long


Statement:
Declare Function GetServiceKeyName Lib "advapi32.dll" Alias "GetServiceKeyNameA" (ByVal hSCManager As Long, ByVal lpDisplayName As String, ByVal lpServiceName As String, lpcchBuffer As Long) As Long


Statement:
Declare Function GetServiceDisplayName Lib "advapi32.dll" Alias "GetServiceDisplayNameA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal lpDisplayName As String, lpcchBuffer As Long) As Long


Statement:
Declare Function LockServiceDatabase Lib "advapi32.dll" Alias "LockServiceDatabase" (ByVal hSCManager As Long) As Long


Statement:
Declare Function NotifyBootConfigStatus Lib "advapi32.dll" Alias "NotifyBootConfigStatus" (ByVal BootAcceptable As Long) As Long


Statement:
Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long


Statement:
Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long


Statement:
Declare Function QueryServiceConfig Lib "advapi32.dll" Alias "QueryServiceConfigA" (ByVal hService As Long, lpServiceConfig As QUERY_SERVICE_CONFIG, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long


Statement:
Declare Function QueryServiceLockStatus Lib "advapi32.dll" Alias "QueryServiceLockStatusA" (ByVal hSCManager As Long, lpLockStatus As QUERY_SERVICE_LOCK_STATUS, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long


Statement:
Declare Function QueryServiceObjectSecurity Lib "advapi32.dll" Alias "QueryServiceObjectSecurity" (ByVal hService As Long, ByVal dwSecurityInformation As Long, lpSecurityDescriptor As Any, ByVal cbBufSize As Long, pcbBytesNeeded As Long) As Long


Statement:
Declare Function QueryServiceStatus Lib "advapi32.dll" Alias "QueryServiceStatus" (ByVal hService As Long, lpServiceStatus As SERVICE_STATUS) As Long


Statement:
Declare Function RegisterServiceCtrlHandler Lib "advapi32.dll" Alias "RegisterServiceCtrlHandlerA" (ByVal lpServiceName As String, ByVal lpHandlerProc As Long) As Long


Statement:
Declare Function SetServiceObjectSecurity Lib "advapi32.dll" Alias "SetServiceObjectSecurity" (ByVal hService As Long, ByVal dwSecurityInformation As Long, lpSecurityDescriptor As Any) As Long


Statement:
Declare Function SetServiceStatus Lib "advapi32.dll" Alias "SetServiceStatus" (ByVal hServiceStatus As Long, lpServiceStatus As SERVICE_STATUS) As Long


Statement:
Declare Function StartServiceCtrlDispatcher Lib "advapi32.dll" Alias "StartServiceCtrlDispatcherA" (lpServiceStartTable As SERVICE_TABLE_ENTRY) As Long


Statement:
Declare Function StartService Lib "advapi32.dll" Alias "StartServiceA" (ByVal hService As Long, ByVal dwNumServiceArgs As Long, ByVal lpServiceArgVectors As Long) As Long


Statement:
Declare Function UnlockServiceDatabase Lib "advapi32.dll" Alias "UnlockServiceDatabase" (ScLock As Any) As Long


Statement:
Type LARGE_INTEGER
    lowpart As Long
    highpart As Long
End Type


Statement:
Type PERF_DATA_BLOCK
        Signature As String * 4
        LittleEndian As Long
        Version As Long
        Revision As Long
        TotalByteLength As Long
        HeaderLength As Long
        NumObjectTypes As Long
        DefaultObject As Long
        SystemTime As SYSTEMTIME
        PerfTime As LARGE_INTEGER
        PerfFreq As LARGE_INTEGER
        PerTime100nSec As LARGE_INTEGER
        SystemNameLength As Long
        SystemNameOffset As Long
End Type


Statement:
Type PERF_OBJECT_TYPE
        TotalByteLength As Long
        DefinitionLength As Long
        HeaderLength As Long
        ObjectNameTitleIndex As Long
        ObjectNameTitle As String
        ObjectHelpTitleIndex As Long
        ObjectHelpTitle As String
        DetailLevel As Long
        NumCounters As Long
        DefaultCounter As Long
        NumInstances As Long
        CodePage As Long
        PerfTime As LARGE_INTEGER
        PerfFreq As LARGE_INTEGER
End Type


Statement:
Public Const PERF_NO_INSTANCES = -1  '  no instances


Statement:
Public Const PERF_SIZE_ZERO = &H200       '  for Zero Length fields


Statement:
Public Const PERF_SIZE_VARIABLE_LEN = &H300       '  length is in CounterLength field of Counter Definition struct


Statement:
Public Const PERF_TYPE_NUMBER = &H0         '  a number (not a counter)


Statement:
Public Const PERF_TYPE_COUNTER = &H400       '  an increasing numeric value


Statement:
Public Const PERF_TYPE_TEXT = &H800       '  a text field


Statement:
Public Const PERF_TYPE_ZERO = &HC00       '  displays a zero


Statement:
Public Const PERF_NUMBER_HEX = &H0         '  display as HEX value


Statement:
Public Const PERF_NUMBER_DECIMAL = &H10000     '  display as a decimal integer


Statement:
Public Const PERF_NUMBER_DEC_1000 = &H20000     '  display as a decimal/1000


Statement:
Public Const PERF_COUNTER_VALUE = &H0         '  display counter value


Statement:
Public Const PERF_COUNTER_RATE = &H10000     '  divide ctr / delta time


Statement:
Public Const PERF_COUNTER_FRACTION = &H20000     '  divide ctr / base


Statement:
Public Const PERF_COUNTER_BASE = &H30000     '  base value used in fractions


Statement:
Public Const PERF_COUNTER_ELAPSED = &H40000     '  subtract counter from current time


Statement:
Public Const PERF_COUNTER_QUEUELEN = &H50000     '  Use Queuelen processing func.


Statement:
Public Const PERF_COUNTER_HISTOGRAM = &H60000     '  Counter begins or ends a histogram


Statement:
Public Const PERF_TEXT_UNICODE = &H0         '  type of text in text field


Statement:
Public Const PERF_TEXT_ASCII = &H10000     '  ASCII using the CodePage field


Statement:
Public Const PERF_TIMER_TICK = &H0         '  use system perf. freq for base


Statement:
Public Const PERF_TIMER_100NS = &H100000    '  use 100 NS timer time base units


Statement:
Public Const PERF_OBJECT_TIMER = &H200000    '  use the object timer freq


Statement:
Public Const PERF_DELTA_COUNTER = &H400000    '  compute difference first


Statement:
Public Const PERF_DELTA_BASE = &H800000    '  compute base diff as well


Statement:
Public Const PERF_INVERSE_COUNTER = &H1000000   '  show as 1.00-value (assumes:


Statement:
Public Const PERF_MULTI_COUNTER = &H2000000   '  sum of multiple instances


Statement:
Public Const PERF_DISPLAY_NO_SUFFIX = &H0         '  no suffix


Statement:
Public Const PERF_DISPLAY_PER_SEC = &H10000000  '  "/sec"


Statement:
Public Const PERF_DISPLAY_PERCENT = &H20000000  '  "%"


Statement:
Public Const PERF_DISPLAY_SECONDS = &H30000000  '  "secs"


Statement:
Public Const PERF_DISPLAY_NOSHOW = &H40000000  '  value is not displayed


Statement:
Public Const PERF_COUNTER_COUNTER = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PER_SEC)


Statement:
Public Const PERF_COUNTER_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_COUNTER_QUEUELEN_TYPE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_QUEUELEN Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_NO_SUFFIX)


Statement:
Public Const PERF_COUNTER_BULK_COUNT = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PER_SEC)


Statement:
Public Const PERF_COUNTER_TEXT = (PERF_SIZE_VARIABLE_LEN Or PERF_TYPE_TEXT Or PERF_TEXT_UNICODE Or PERF_DISPLAY_NO_SUFFIX)


Statement:
Public Const PERF_COUNTER_RAWCOUNT = (PERF_SIZE_DWORD Or PERF_TYPE_NUMBER Or PERF_NUMBER_DECIMAL Or PERF_DISPLAY_NO_SUFFIX)


Statement:
Public Const PERF_SAMPLE_FRACTION = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DELTA_COUNTER Or PERF_DELTA_BASE Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_SAMPLE_COUNTER = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_DISPLAY_NO_SUFFIX)


Statement:
Public Const PERF_COUNTER_NODATA = (PERF_SIZE_ZERO Or PERF_DISPLAY_NOSHOW)


Statement:
Public Const PERF_COUNTER_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_TICK Or PERF_DELTA_COUNTER Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_SAMPLE_BASE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_DISPLAY_NOSHOW Or &H1)         '  for compatibility with pre-beta versions


Statement:
Public Const PERF_AVERAGE_TIMER = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DISPLAY_SECONDS)


Statement:
Public Const PERF_AVERAGE_BASE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_DISPLAY_NOSHOW Or &H2)         '  for compatibility with pre-beta versions


Statement:
Public Const PERF_AVERAGE_BULK = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DISPLAY_NOSHOW)


Statement:
Public Const PERF_100NSEC_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_DELTA_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_100NSEC_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_DELTA_COUNTER Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_COUNTER_MULTI_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_DELTA_COUNTER Or PERF_TIMER_TICK Or PERF_MULTI_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_COUNTER_MULTI_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_RATE Or PERF_DELTA_COUNTER Or PERF_MULTI_COUNTER Or PERF_TIMER_TICK Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_COUNTER_MULTI_BASE = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_MULTI_COUNTER Or PERF_DISPLAY_NOSHOW)


Statement:
Public Const PERF_100NSEC_MULTI_TIMER = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_DELTA_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_MULTI_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_100NSEC_MULTI_TIMER_INV = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_DELTA_COUNTER Or PERF_COUNTER_RATE Or PERF_TIMER_100NS Or PERF_MULTI_COUNTER Or PERF_INVERSE_COUNTER Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_RAW_FRACTION = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_FRACTION Or PERF_DISPLAY_PERCENT)


Statement:
Public Const PERF_RAW_BASE = (PERF_SIZE_DWORD Or PERF_TYPE_COUNTER Or PERF_COUNTER_BASE Or PERF_DISPLAY_NOSHOW Or &H3)         '  for compatibility with pre-beta versions


Statement:
Public Const PERF_ELAPSED_TIME = (PERF_SIZE_LARGE Or PERF_TYPE_COUNTER Or PERF_COUNTER_ELAPSED Or PERF_OBJECT_TIMER Or PERF_DISPLAY_SECONDS)


Statement:
Public Const PERF_COUNTER_HISTOGRAM_TYPE = &H80000000  ' Counter begins or ends a histogram


Statement:
Public Const PERF_DETAIL_NOVICE = 100 '  The uninformed can understand it


Statement:
Public Const PERF_DETAIL_ADVANCED = 200 '  For the advanced user


Statement:
Public Const PERF_DETAIL_EXPERT = 300 '  For the expert user


Statement:
Public Const PERF_DETAIL_WIZARD = 400 '  For the system designer


Statement:
Type PERF_COUNTER_DEFINITION
        ByteLength As Long
        CounterNameTitleIndex As Long
        CounterNameTitle As String
        CounterHelpTitleIndex As Long
        CounterHelpTitle As String
        DefaultScale As Long
        DetailLevel As Long
        CounterType As Long
        CounterSize As Long
        CounterOffset As Long
End Type


Statement:
Type PERF_INSTANCE_DEFINITION
        ByteLength As Long
        ParentObjectTitleIndex As Long
        ParentObjectInstance As Long
        UniqueID As Long
        NameOffset As Long
        NameLength As Long
End Type


Statement:
Type PERF_COUNTER_BLOCK
        ByteLength As Long
End Type


Statement:
Public Const CDERR_DIALOGFAILURE = &HFFFF


Statement:
Public Const CDERR_MEMALLOCFAILURE = &H9


Statement:
Public Const CDERR_REGISTERMSGFAIL = &HC


Statement:
Public Const PDERR_PRINTERCODES = &H1000


Statement:
Public Const PDERR_SETUPFAILURE = &H1001


Statement:
Public Const PDERR_PARSEFAILURE = &H1002


Statement:
Public Const PDERR_RETDEFFAILURE = &H1003


Statement:
Public Const PDERR_LOADDRVFAILURE = &H1004


Statement:
Public Const PDERR_GETDEVMODEFAIL = &H1005


Statement:
Public Const PDERR_NODEFAULTPRN = &H1008


Statement:
Public Const PDERR_DNDMMISMATCH = &H1009


Statement:
Public Const PDERR_CREATEICFAILURE = &H100A


Statement:
Public Const PDERR_PRINTERNOTFOUND = &H100B


Statement:
Public Const PDERR_DEFAULTDIFFERENT = &H100C


Statement:
Public Const CFERR_CHOOSEFONTCODES = &H2000


Statement:
Public Const CFERR_MAXLESSTHANMIN = &H2002


Statement:
Public Const FNERR_FILENAMECODES = &H3000


Statement:
Public Const FNERR_SUBCLASSFAILURE = &H3001


Statement:
Public Const FNERR_INVALIDFILENAME = &H3002


Statement:
Public Const FNERR_BUFFERTOOSMALL = &H3003


Statement:
Public Const FRERR_FINDREPLACECODES = &H4000


Statement:
Public Const FRERR_BUFFERLENGTHZERO = &H4001


Statement:
Public Const CCERR_CHOOSECOLORCODES = &H5000


Statement:
Public Const LZERROR_BADINHANDLE = (-1)  '  invalid input handle


Statement:
Public Const LZERROR_BADOUTHANDLE = (-2) '  invalid output handle


Statement:
Public Const LZERROR_READ = (-3)         '  corrupt compressed file format


Statement:
Public Const LZERROR_WRITE = (-4)        '  out of space for output file


Statement:
Public Const LZERROR_PUBLICLOC = (-5)    '  insufficient memory for LZFile struct


Statement:
Public Const LZERROR_GLOBLOCK = (-6)     '  bad Global handle


Statement:
Public Const LZERROR_BADVALUE = (-7)     '  input parameter out of range


Statement:
Public Const LZERROR_UNKNOWNALG = (-8)   '  compression algorithm not recognized


Statement:
Declare Function LZCopy Lib "lz32.dll" Alias "LZCopy" (ByVal hfSource As Long, ByVal hfDest As Long) As Long


Statement:
Declare Function LZInit Lib "lz32.dll" Alias "LZInit" (ByVal hfSrc As Long) As Long


Statement:
Declare Function GetExpandedName Lib "lz32.dll" Alias "GetExpandedNameA" (ByVal lpszSource As String, ByVal lpszBuffer As String) As Long


Statement:
Declare Function LZOpenFile Lib "lz32.dll" Alias "LZOpenFileA" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Long) As Long


Statement:
Declare Function LZSeek Lib "lz32.dll" Alias "LZSeek" (ByVal hfFile As Long, ByVal lOffset As Long, ByVal nOrigin As Long) As Long


Statement:
Declare Function LZRead Lib "lz32.dll" Alias "LZRead" (ByVal hfFile As Long, ByVal lpvBuf As String, ByVal cbread As Long) As Long


Statement:
Declare Sub LZClose Lib "lz32.dll" Alias "LZClose" (ByVal hfFile As Long)


Statement:
Type COMPOSITIONFORM
        dwStyle As Long
        ptCurrentPos As POINTAPI
        rcArea As Rect
End Type


Statement:
Type CANDIDATEFORM
        dwIndex As Long
        dwStyle As Long
        ptCurrentPos As POINTAPI
        rcArea As Rect
End Type


Statement:
Type CANDIDATELIST
        dwSize As Long
        dwStyle As Long
        dwCount As Long
        dwSelection As Long
        dwPageStart As Long
        dwPageSize As Long
        dwOffset(1) As Long
End Type


Statement:
Public Const STYLE_DESCRIPTION_SIZE = 32


Statement:
Type STYLEBUF
        dwStyle As Long
        szDescription As String * STYLE_DESCRIPTION_SIZE
End Type


Statement:
Declare Function ImmInstallIME Lib "imm32.dll" Alias "ImmInstallIMEA" (ByVal lpszIMEFileName As String, ByVal lpszLayoutText As String) As Long


Statement:
Declare Function ImmGetDefaultIMEWnd Lib "imm32.dll" Alias "ImmGetDefaultIMEWnd" (ByVal hwnd As Long) As Long


Statement:
Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long


Statement:
Declare Function ImmGetIMEFileName Lib "imm32.dll" Alias "ImmGetIMEFileNameA" (ByVal hkl As Long, ByVal lpStr As String, ByVal uBufLen As Long) As Long


Statement:
Declare Function ImmGetProperty Lib "imm32.dll" Alias "ImmGetProperty" (ByVal hkl As Long, ByVal dw As Long) As Long


Statement:
Declare Function ImmIsIME Lib "imm32.dll" Alias "ImmIsIME" (ByVal hkl As Long) As Long


Statement:
Declare Function ImmSimulateHotKey Lib "imm32.dll" Alias "ImmSimulateHotKey" (ByVal hwnd As Long, ByVal dw As Long) As Long


Statement:
Declare Function ImmCreateContext Lib "imm32.dll" Alias "ImmCreateContext" () As Long


Statement:
Declare Function ImmDestroyContext Lib "imm32.dll" Alias "ImmDestroyContext" (ByVal himc As Long) As Long


Statement:
Declare Function ImmGetContext Lib "imm32.dll" Alias "ImmGetContext" (ByVal hwnd As Long) As Long


Statement:
Declare Function ImmReleaseContext Lib "imm32.dll" Alias "ImmReleaseContext" (ByVal hwnd As Long, ByVal himc As Long) As Long


Statement:
Declare Function ImmAssociateContext Lib "imm32.dll" Alias "ImmAssociateContext" (ByVal hwnd As Long, ByVal himc As Long) As Long


Statement:
Declare Function ImmGetCompositionString Lib "imm32.dll" Alias "ImmGetCompositionStringA" (ByVal himc As Long, ByVal dw As Long, lpv As Any, ByVal dw2 As Long) As Long


Statement:
Declare Function ImmSetCompositionString Lib "imm32.dll" Alias "ImmSetCompositionStringA" (ByVal himc As Long, ByVal dwIndex As Long, lpComp As Any, ByVal dw As Long, lpRead As Any, ByVal dw2 As Long) As Long


Statement:
Declare Function ImmGetCandidateListCount Lib "imm32.dll" Alias "ImmGetCandidateListCountA" (ByVal himc As Long, lpdwListCount As Long) As Long


Statement:
Declare Function ImmGetCandidateList Lib "imm32.dll" Alias "ImmGetCandidateListA" (ByVal himc As Long, ByVal deIndex As Long, lpCandidateList As CANDIDATELIST, ByVal dwBufLen As Long) As Long


Statement:
Declare Function ImmGetGuideLine Lib "imm32.dll" Alias " ImmGetGuideLineA" (ByVal himc As Long, ByVal dwIndex As Long, ByVal lpStr As String, ByVal dwBufLen As Long) As Long


Statement:
Declare Function ImmGetConversionStatus Lib "imm32.dll" Alias "ImmGetConversionStatus" (ByVal himc As Long, lpdw As Long, lpdw2 As Long) As Long


Statement:
Declare Function ImmSetConversionStatus Lib "imm32.dll" Alias "ImmSetConversionStatus" (ByVal himc As Long, ByVal dw1 As Long, ByVal dw2 As Long) As Long


Statement:
Declare Function ImmGetOpenStatus Lib "imm32.dll" Alias "ImmGetOpenStatus" (ByVal himc As Long) As Long


Statement:
Declare Function ImmSetOpenStatus Lib "imm32.dll" Alias "ImmSetOpenStatus" (ByVal himc As Long, ByVal b As Long) As Long


Statement:
Declare Function ImmGetCompositionFont Lib "imm32.dll" Alias "ImmGetCompositionFontA" (ByVal himc As Long, lpLogFont As LOGFONT) As Long


Statement:
Declare Function ImmSetCompositionFont Lib "imm32.dll" Alias "ImmSetCompositionFontA" (ByVal himc As Long, lpLogFont As LOGFONT) As Long


Statement:
Declare Function ImmConfigureIME Lib "imm32.dll" Alias "ImmConfigureIME" (ByVal hkl As Long, ByVal hwnd As Long, ByVal dw As Long) As Long


Statement:
Declare Function ImmEscape Lib "imm32.dll" Alias "ImmEscapeA" (ByVal hkl As Long, ByVal himc As Long, ByVal un As Long, lpv As Any) As Long


Statement:
Declare Function ImmGetConversionList Lib "imm32.dll" Alias "ImmGetConversionListA" (ByVal hkl As Long, ByVal himc As Long, ByVal lpsz As String, lpCandidateList As CANDIDATELIST, ByVal dwBufLen As Long, ByVal uFlag As Long) As Long


Statement:
Declare Function ImmNotifyIME Lib "imm32.dll" Alias "ImmNotifyIME" (ByVal himc As Long, ByVal dwAction As Long, ByVal dwIndex As Long, ByVal dwValue As Long) As Long


Statement:
Declare Function ImmGetStatusWindowPos Lib "imm32.dll" Alias "ImmGetStatusWindowPos" (ByVal himc As Long, lpPoint As POINTAPI) As Long


Statement:
Declare Function ImmSetStatusWindowPos Lib "imm32.dll" Alias "ImmSetStatusWindowPos" (ByVal himc As Long, lpPoint As POINTAPI) As Long


Statement:
Declare Function ImmGetCompositionWindow Lib "imm32.dll" Alias "ImmGetCompositionWindow" (ByVal himc As Long, lpCompositionForm As COMPOSITIONFORM) As Long


Statement:
Declare Function ImmSetCompositionWindow Lib "imm32.dll" Alias "ImmSetCompositionWindow" (ByVal himc As Long, lpCompositionForm As COMPOSITIONFORM) As Long


Statement:
Declare Function ImmGetCandidateWindow Lib "imm32.dll" Alias "ImmGetCandidateWindow" (ByVal himc As Long, ByVal dw As Long, lpCandidateForm As CANDIDATEFORM) As Long


Statement:
Declare Function ImmSetCandidateWindow Lib "imm32.dll" Alias "ImmSetCandidateWindow" (ByVal himc As Long, lpCandidateForm As CANDIDATEFORM) As Long


Statement:
Declare Function ImmIsUIMessage Lib "imm32.dll" Alias "ImmIsUIMessageA" (ByVal hwnd As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Statement:
Declare Function ImmGetVirtualKey Lib "imm32.dll" Alias "ImmGetVirtualKey" (ByVal hwnd As Long) As Long


Statement:
Declare Function ImmRegisterWord Lib "imm32.dll" Alias "ImmRegisterWordA" (ByVal hkl As Long, ByVal lpszReading As String, ByVal dw As Long, ByVal lpszRegister As String) As Long


Statement:
Declare Function ImmUnregisterWord Lib "imm32.dll" Alias "ImmUnregisterWordA" (ByVal hkl As Long, ByVal lpszReading As String, ByVal dw As Long, ByVal lpszUnregister As String) As Long


Statement:
Declare Function ImmGetRegisterWordStyle Lib "imm32.dll" Alias " ImmGetRegisterWordStyleA" (ByVal hkl As Long, ByVal nItem As Long, lpStyleBuf As STYLEBUF) As Long


Statement:
Declare Function ImmEnumRegisterWord Lib "imm32.dll" Alias "ImmEnumRegisterWordA" (ByVal hkl As Long, ByVal RegisterWordEnumProc As Long, ByVal lpszReading As String, ByVal dw As Long, ByVal lpszRegister As String, lpv As Any) As Long


Statement:
Public Const WM_CONVERTREQUESTEX = &H108


Statement:
Public Const WM_IME_STARTCOMPOSITION = &H10D


Statement:
Public Const WM_IME_ENDCOMPOSITION = &H10E


Statement:
Public Const WM_IME_COMPOSITIONFULL = &H284


Statement:
Public Const IMC_GETCOMPOSITIONFONT = &H9


Statement:
Public Const IMC_SETCOMPOSITIONFONT = &HA


Statement:
Public Const IMC_GETCOMPOSITIONWINDOW = &HB


Statement:
Public Const IMC_SETCOMPOSITIONWINDOW = &HC


Statement:
Public Const IMC_GETSTATUSWINDOWPOS = &HF


Statement:
Public Const IMC_SETSTATUSWINDOWPOS = &H10


Statement:
Public Const IMC_CLOSESTATUSWINDOW = &H21


Statement:
Public Const IMC_OPENSTATUSWINDOW = &H22


Statement:
Public Const NI_SELECTCANDIDATESTR = &H12


Statement:
Public Const NI_CHANGECANDIDATELIST = &H13


Statement:
Public Const NI_FINALIZECONVERSIONRESULT = &H14


Statement:
Public Const NI_SETCANDIDATE_PAGESTART = &H16


Statement:
Public Const NI_SETCANDIDATE_PAGESIZE = &H17


Statement:
Public Const ISC_SHOWUICANDIDATEWINDOW = &H1


Statement:
Public Const ISC_SHOWUICOMPOSITIONWINDOW = &H80000000


Statement:
Public Const ISC_SHOWUIGUIDELINE = &H40000000


Statement:
Public Const ISC_SHOWUIALLCANDIDATEWINDOW = &HF


Statement:
Public Const IME_CHOTKEY_IME_NONIME_TOGGLE = &H10


Statement:
Public Const IME_CHOTKEY_SHAPE_TOGGLE = &H11


Statement:
Public Const IME_CHOTKEY_SYMBOL_TOGGLE = &H12


Statement:
Public Const IME_JHOTKEY_CLOSE_OPEN = &H30


Statement:
Public Const IME_KHOTKEY_SHAPE_TOGGLE = &H50


Statement:
Public Const IME_KHOTKEY_HANJACONVERT = &H51


Statement:
Public Const IME_THOTKEY_IME_NONIME_TOGGLE = &H70


Statement:
Public Const IME_THOTKEY_SHAPE_TOGGLE = &H71


Statement:
Public Const IME_THOTKEY_SYMBOL_TOGGLE = &H72


Statement:
Public Const IME_HOTKEY_DSWITCH_FIRST = &H100


Statement:
Public Const IME_HOTKEY_DSWITCH_LAST = &H11F


Statement:
Public Const IME_ITHOTKEY_RESEND_RESULTSTR = &H200


Statement:
Public Const IME_ITHOTKEY_PREVIOUS_COMPOSITION = &H201


Statement:
Public Const IME_ITHOTKEY_UISTYLE_TOGGLE = &H202


Statement:
Public Const GCS_RESULTREADCLAUSE = &H400


Statement:
Public Const IME_PROP_AT_CARET = &H10000


Statement:
Public Const IME_PROP_SPECIAL_UI = &H20000


Statement:
Public Const IME_PROP_CANDLIST_START_FROM_1 = &H40000


Statement:
Public Const SELECT_CAP_CONVERSION = &H1


Statement:
Public Const GL_ID_READINGCONFLICT = &H23


Statement:
Public Const GL_ID_CHOOSECANDIDATE = &H28


Statement:
Public Const GL_ID_REVERSECONVERSION = &H29


Statement:
Public Const GL_ID_PRIVATE_FIRST = &H8000


Statement:
Public Const GL_ID_PRIVATE_LAST = &HFFFF


Statement:
Public Const SCS_SETSTR = (GCS_COMPREADSTR Or GCS_COMPSTR)


Statement:
Public Const SCS_CHANGEATTR = (GCS_COMPREADATTR Or GCS_COMPATTR)


Statement:
Public Const SCS_CHANGECLAUSE = (GCS_COMPREADCLAUSE Or GCS_COMPCLAUSE)


Statement:
Public Const ATTR_TARGET_CONVERTED = &H1


Statement:
Public Const ATTR_TARGET_NOTCONVERTED = &H3


Statement:
Public Const GCL_REVERSECONVERSION = &H2


Statement:
Public Const IME_CMODE_ALPHANUMERIC = &H0


Statement:
Public Const IME_CMODE_CHINESE = IME_CMODE_NATIVE


Statement:
Public Const IME_CMODE_HANGEUL = IME_CMODE_NATIVE


Statement:
Public Const IME_CMODE_JAPANESE = IME_CMODE_NATIVE


Statement:
Public Const IME_CMODE_KATAKANA = &H2                   '  only effect under IME_CMODE_NATIVE


Statement:
Public Const IME_CMODE_HANJACONVERT = &H40


Statement:
Public Const IME_CMODE_NOCONVERSION = &H100


Statement:
Public Const IME_SMODE_PLAURALCLAUSE = &H1


Statement:
Public Const IME_SMODE_SINGLECONVERT = &H2


Statement:
Public Const IME_SMODE_PHRASEPREDICT = &H8


Statement:
Public Const IMN_CLOSESTATUSWINDOW = &H1


Statement:
Public Const IMN_SETCONVERSIONMODE = &H6


Statement:
Public Const IMN_SETCOMPOSITIONFONT = &HA


Statement:
Public Const IMN_SETCOMPOSITIONWINDOW = &HB


Statement:
Public Const IMN_SETSTATUSWINDOWPOS = &HC


Statement:
Public Const IME_CONFIG_REGISTERWORD = 2


Statement:
Public Const IME_CONFIG_SELECTDICTIONARY = 3


Statement:
Public Const IME_ESC_QUERY_SUPPORT = &H3


Statement:
Public Const IME_ESC_RESERVED_FIRST = &H4


Statement:
Public Const IME_ESC_RESERVED_LAST = &H7FF


Statement:
Public Const IME_ESC_PRIVATE_FIRST = &H800


Statement:
Public Const IME_ESC_PRIVATE_LAST = &HFFF


Statement:
Public Const IME_ESC_SEQUENCE_TO_INTERNAL = &H1001


Statement:
Public Const IME_ESC_GET_EUDC_DICTIONARY = &H1003


Statement:
Public Const IME_ESC_SET_EUDC_DICTIONARY = &H1004


Statement:
Public Const IME_ESC_SYNC_HOTKEY = &H1007


Statement:
Public Const IME_ESC_HANJA_MODE = &H1008


Statement:
Public Const IME_REGWORD_STYLE_EUDC = &H1


Statement:
Public Const IME_REGWORD_STYLE_USER_FIRST = &H80000000


Statement:
Public Const IME_REGWORD_STYLE_USER_LAST = &HFFFF


Statement:
Type MODEMDEVCAPS
        dwActualSize As Long
        dwRequiredSize As Long
        dwDevSpecificOffset As Long
        dwDevSpecificSize As Long

    '  product and version identification
        dwModemProviderVersion As Long
        dwModemManufacturerOffset As Long
        dwModemManufacturerSize As Long
        dwModemModelOffset As Long
        dwModemModelSize As Long
        dwModemVersionOffset As Long
        dwModemVersionSize As Long

    '  local option capabilities
        dwDialOptions As Long          '  bitmap of supported values
        dwCallSetupFailTimer As Long   '  maximum in seconds
        dwInactivityTimeout As Long    '  maximum in seconds
        dwSpeakerVolume As Long        '  bitmap of supported values
        dwSpeakerMode As Long          '  bitmap of supported values
        dwModemOptions As Long         '  bitmap of supported values
        dwMaxDTERate As Long           '  maximum value in bit/s
        dwMaxDCERate As Long           '  maximum value in bit/s

    '  Variable portion for proprietary expansion
        abVariablePortion(1) As Byte
End Type


Statement:
Type MODEMSETTINGS
        dwActualSize As Long
        dwRequiredSize As Long
        dwDevSpecificOffset As Long
        dwDevSpecificSize As Long

    '  static local options (read/write)
        dwCallSetupFailTimer As Long       '  seconds
        dwInactivityTimeout As Long        '  seconds
        dwSpeakerVolume As Long            '  level
        dwSpeakerMode As Long              '  mode
        dwPreferredModemOptions As Long    '  bitmap
    
    '  negotiated options (read only) for current or last call
        dwNegotiatedModemOptions As Long   '  bitmap
        dwNegotiatedDCERate As Long        '  bit/s

    '  Variable portion for proprietary expansion
        abVariablePortion(1) As Byte
End Type


Statement:
Public Const DIALOPTION_BILLING = &H40          '  Supports wait for bong "$"


Statement:
Public Const DIALOPTION_QUIET = &H80            '  Supports wait for quiet "@"


Statement:
Public Const DIALOPTION_DIALTONE = &H100        '  Supports wait for dial tone "W"


Statement:
Public Const MDMSPKRFLAG_CALLSETUP = &H8


Statement:
Public Const MDM_FLOWCONTROL_HARD = &H10


Statement:
Public Const MDM_FLOWCONTROL_SOFT = &H20


Statement:
Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As Long, ByVal UINT As Long, ByVal lpStr As String, ByVal ch As Long) As Long


Statement:
Declare Function DragQueryPoint Lib "shell32.dll" Alias "DragQueryPoint" (ByVal HDROP As Long, lpPoint As POINTAPI) As Long


Statement:
Declare Sub DragFinish Lib "shell32.dll" Alias "DragFinish" (ByVal hDrop As Long)


Statement:
Declare Sub DragAcceptFiles Lib "shell32.dll" Alias "DragAcceptFiles" (ByVal hwnd As Long, ByVal fAccept As Long)


Statement:
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Statement:
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long


Statement:
Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long


Statement:
Declare Function DuplicateIcon Lib "shell32.dll" Alias "DuplicateIcon" (ByVal hInst As Long, ByVal hIcon As Long) As Long


Statement:
Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociateIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long


Statement:
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long


Statement:
Type DRAGINFO
        uSize As Long                 '  init with sizeof(DRAGINFO)
        pt As POINTAPI
        fNC As Boolean
        lpFileList As String
        grfKeyState As Long
End Type


Statement:
Public Const ABM_ACTIVATE = &H6               '  lParam == TRUE/FALSE means activate/deactivate


Statement:
Public Const ABM_SETAUTOHIDEBAR = &H8          '  this can fail at any time.  MUST check the result


Statement:
Public Const ABN_WINDOWARRANGE = &H3 '  lParam == TRUE means hide


Statement:
Type APPBARDATA
        cbSize As Long
        hwnd As Long
        uCallbackMessage As Long
        uEdge As Long
        rc As Rect
        lParam As Long '  message specific
End Type


Statement:
Declare Function SHAppBarMessage Lib "shell32.dll" Alias "SHAppBarMessage" (ByVal dwMessage As Long, pData As APPBARDATA) As Long


Statement:
Declare Function DoEnvironmentSubst Lib "shell32.dll" Alias "DoEnvironmentSubstA" (ByVal szString As String, ByVal cbString As Long) As Long


Statement:
Declare Function FindEnvironmentString Lib "shell32.dll" Alias "FindEnvironmentStringA" (ByVal szEnvVar As String) As String


Statement:
Declare Function ExtractIconEx Lib "shell32.dll" Alias "ExtractIconExA" (ByVal lpszFile As String, ByVal nIconIndex As Long, phiconLarge As Long, phiconSmall As Long, ByVal nIcons As Long) As Long


Statement:
Public Const FOF_SILENT = &H4                      '  don't create progress/report


Statement:
Public Const FOF_RENAMEONCOLLISION = &H8


Statement:
Public Const FOF_NOCONFIRMATION = &H10             '  Don't prompt the user.


Statement:
Public Const FOF_WANTMAPPINGHANDLE = &H20          '  Fill in SHFILEOPSTRUCT.hNameMappings


Statement:
Public Const FOF_FILESONLY = &H80                  '  on *.*, do only files


Statement:
Public Const FOF_SIMPLEPROGRESS = &H100            '  means don't show names of files


Statement:
Public Const FOF_NOCONFIRMMKDIR = &H200            '  don't confirm making any needed dirs


Statement:
Public Const PO_DELETE = &H13           '  printer is being deleted


Statement:
Public Const PO_RENAME = &H14           '  printer is being renamed


Statement:
Public Const PO_PORTCHANGE = &H20       '  port this printer connected to is being changed


Statement:
Public Const PO_REN_PORT = &H34         '  PO_RENAME and PO_PORTCHANGE at same time.


Statement:
Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Boolean
        hNameMappings As Long
        lpszProgressTitle As String '  only used if FOF_SIMPLEPROGRESS
End Type


Statement:
Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long


Statement:
Declare Sub SHFreeNameMappings Lib "shell32.dll" Alias "SHFreeNameMappings" (ByVal hNameMappings As Long)


Statement:
Type SHNAMEMAPPING
        pszOldPath As String
        pszNewPath As String
        cchOldPath As Long
        cchNewPath As Long
End Type


Statement:
Public Const SE_ERR_FNF = 2                     '  file not found


Statement:
Public Const SE_ERR_PNF = 3                     '  path not found


Statement:
Public Const SE_ERR_ACCESSDENIED = 5            '  access denied


Statement:
Public Const SE_ERR_OOM = 8                     '  out of memory


Statement:
Public Const SEE_MASK_INVOKEIDLIST = &HC


Statement:
Public Const SEE_MASK_NOCLOSEPROCESS = &H40


Statement:
Public Const SEE_MASK_CONNECTNETDRV = &H80


Statement:
Public Const SEE_MASK_FLAG_DDEWAIT = &H100


Statement:
Public Const SEE_MASK_DOENVSUBST = &H200


Statement:
Public Const SEE_MASK_FLAG_NO_UI = &H400


Statement:
Type SHELLEXECUTEINFO
        cbSize As Long
        fMask As Long
        hwnd As Long
        lpVerb As String
        lpFile As String
        lpParameters As String
        lpDirectory As String
        nShow As Long
        hInstApp As Long
        '  Optional fields
        lpIDList As Long
        lpClass As String
        hkeyClass As Long
        dwHotKey As Long
        hIcon As Long
        hProcess As Long
End Type


Statement:
Declare Sub WinExecError Lib "shell32.dll" Alias "WinExecErrorA" (ByVal hwnd As Long, ByVal error As Long, ByVal lpstrFileName As String, ByVal lpstrTitle As String)


Statement:
Type NOTIFYICONDATA
        cbSize As Long
        hwnd As Long
        uID As Long
        uFlags As Long
        uCallbackMessage As Long
        hIcon As Long
        szTip As String * 64
End Type


Statement:
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long


Statement:
Type SHFILEINFO
        hIcon As Long                      '  out: icon
        iIcon As Long          '  out: icon index
        dwAttributes As Long               '  out: SFGAO_ flags
        szDisplayName As String * MAX_PATH '  out: display name (or path)
        szTypeName As String * 80         '  out: type name
End Type


Statement:
Public Const SHGFI_ICON = &H100                         '  get icon


Statement:
Public Const SHGFI_DISPLAYNAME = &H200                  '  get display name


Statement:
Public Const SHGFI_TYPENAME = &H400                     '  get type name


Statement:
Public Const SHGFI_ATTRIBUTES = &H800                   '  get attributes


Statement:
Public Const SHGFI_ICONLOCATION = &H1000                '  get icon location


Statement:
Public Const SHGFI_EXETYPE = &H2000                     '  return exe type


Statement:
Public Const SHGFI_SYSICONINDEX = &H4000                '  get system icon index


Statement:
Public Const SHGFI_LINKOVERLAY = &H8000                 '  put a link overlay on icon


Statement:
Public Const SHGFI_SELECTED = &H10000                   '  show icon in selected state


Statement:
Public Const SHGFI_LARGEICON = &H0                      '  get large icon


Statement:
Public Const SHGFI_SMALLICON = &H1                      '  get small icon


Statement:
Public Const SHGFI_OPENICON = &H2                       '  get open icon


Statement:
Public Const SHGFI_SHELLICONSIZE = &H4                  '  get shell size icon


Statement:
Public Const SHGFI_PIDL = &H8                           '  pszPath is a pidl


Statement:
Public Const SHGFI_USEFILEATTRIBUTES = &H10             '  use passed dwFileAttribute


Statement:
Declare Function SHGetFileInfo Lib "shell32.dll" Alias " SHGetFileInfoA" (ByVal pszPath As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long


Statement:
Declare Function SHGetNewLinkInfo Lib "shell32.dll" Alias "SHGetNewLinkInfoA" (ByVal pszLinkto As String, ByVal pszDir As String, ByVal pszName As String, pfMustCopy As Long, ByVal uFlags As Long) As Long


Statement:
Public Const SHGNLI_PIDL = &H1                          '  pszLinkTo is a pidl


Statement:
Public Const SHGNLI_PREFIXNAME = &H2                    '  Make name "Shortcut to xxx"


Statement:
Public Const VS_FFI_SIGNATURE = &HFEEF04BD


Statement:
Public Const VS_FFI_STRUCVERSION = &H10000


Statement:
Public Const VS_FFI_FILEFLAGSMASK = &H3F&


Statement:
Public Const VOS_DOS_WINDOWS16 = &H10001


Statement:
Public Const VOS_DOS_WINDOWS32 = &H10004


Statement:
Public Const VFT2_DRV_INSTALLABLE = &H8&


Statement:
Public Const VFT2_DRV_INPUTMETHOD = &HB&


Statement:
Public Const VIF_ACCESSVIOLATION = &H200&


Statement:
Public Const VIF_SHARINGVIOLATION = &H400&


Statement:
Public Const VIF_CANNOTDELETECUR = &H4000&


Statement:
Public Const VIF_CANNOTREADSRC = &H10000


Statement:
Public Const VIF_CANNOTREADDST = &H20000


Statement:
Type VS_FIXEDFILEINFO
        dwSignature As Long
        dwStrucVersion As Long         '  e.g. 0x00000042 = "0.42"
        dwFileVersionMS As Long        '  e.g. 0x00030075 = "3.75"
        dwFileVersionLS As Long        '  e.g. 0x00000031 = "0.31"
        dwProductVersionMS As Long     '  e.g. 0x00030010 = "3.10"
        dwProductVersionLS As Long     '  e.g. 0x00000031 = "0.31"
        dwFileFlagsMask As Long        '  = 0x3F for version "0.42"
        dwFileFlags As Long            '  e.g. VFF_DEBUG Or VFF_PRERELEASE
        dwFileOS As Long               '  e.g. VOS_DOS_WINDOWS16
        dwFileType As Long             '  e.g. VFT_DRIVER
        dwFileSubtype As Long          '  e.g. VFT2_DRV_KEYBOARD
        dwFileDateMS As Long           '  e.g. 0
        dwFileDateLS As Long           '  e.g. 0
End Type


Statement:
Declare Function VerFindFile Lib "version.dll" Alias "VerFindFileA" (ByVal uFlags As Long, ByVal szFileName As String, ByVal szWinDir As String, ByVal szAppDir As String, ByVal szCurDir As String, lpuCurDirLen As Long, ByVal szDestDir As String, lpuDestDirLen As Long) As Long


Statement:
Declare Function VerInstallFile Lib "version.dll" Alias " VerInstallFileA" (ByVal uFlags As Long, ByVal szSrcFileName As String, ByVal szDestFileName As String, ByVal szSrcDir As String, ByVal szDestDir As String, ByVal szCurDir As String, ByVal szTmpFile As String, lpuTmpFileLen As Long) As Long


Statement:
Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long


Statement:
Declare Function GetFileVersionInfo Lib "version.dll"  Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long


Statement:
Declare Function VerLanguageName Lib "kernel32" Alias "VerLanguageNameA" (ByVal wLang As Long, ByVal szLang As String, ByVal nSize As Long) As Long


Statement:
Declare Function VerQueryValue Lib "version.dll" Alias "VerQueryValue" (pBlock As Any, ByVal lpSubBlock As String, ByVal lplpBuffer As Long, puLen As Long) As Long


Statement:
Type ICONMETRICS
	cbSize As Long
	iHorzSpacing As Long
	iVertSpacing As Long
	iTitleWrap As Long
	lfFont As LOGFONT
End Type


Statement:
Type HELPINFO
	cbSize As Long
	iContextType As Long
	iCtrlId As Long
	hItemHandle As Long
	dwContextId As Long
	MousePos As POINTAPI
End Type


Statement:
Type ANIMATIONINFO
	cbSize As Long
	iMinAnimate As Long
End Type


Statement:
Type MINIMIZEDMETRICS
	cbSize As Long
	iWidth As Long
	iHorzGap As Long
	iVertGap As Long
	iArrange As Long
	lfFont As LOGFONT
End Type


Statement:
Declare Function HeapValidate Lib "kernel32" Alias "HeapValidate" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long


Statement:
Declare Function HeapCompact Lib "kernel32" Alias "HeapCompact" (ByVal hHeap As Long, ByVal dwFlags As Long) As Long


Statement:
Public Const PROCESS_HEAP_UNCOMMITTED_RANGE = &H2


Statement:
Public Const PROCESS_HEAP_ENTRY_BUSY = &H4


Statement:
Public Const PROCESS_HEAP_ENTRY_MOVEABLE = &H10


Statement:
Public Const PROCESS_HEAP_ENTRY_DDESHARE = &H20


Statement:
Declare Function HeapLock Lib "kernel32" Alias "HeapLock" (ByVal hHeap As Long) As Long


Statement:
Declare Function HeapUnlock Lib "kernel32" Alias "HeapUnlock" (ByVal hHeap As Long) As Long


Statement:
Declare Function GetBinaryType Lib "kernel32" Alias "GetBinaryTypeA" (ByVal lpApplicationName As String, lpBinaryType As Long) As Long


Statement:
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathName" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long


Statement:
Declare Function GetProcessAffinityMask Lib "kernel32" Alias "GetProcessAffinityMask" (ByVal hProcess As Long, lpProcessAffinityMask As Long, SystemAffinityMask As Long) As Long


Statement:
Public Const LOGON32_LOGON_INTERACTIVE = 2


Statement:
Public Const LOGON32_PROVIDER_DEFAULT = 0


Statement:
Public Const LOGON32_PROVIDER_WINNT35 = 1


Statement:
Declare Function LogonUser Lib "kernel32" Alias " LogonUserA" (ByVal lpszUsername As String, ByVal lpszDomain As String, ByVal lpszPassword As String, ByVal dwLogonType As Long, ByVal dwLogonProvider As Long, phToken As Long) As Long


Statement:
Declare Function ImpersonateLoggedOnUser Lib "kernel32" Alias "ImpersonateLoggedOnUser" (ByVal hToken As Long) As Long


Statement:
Declare Function CreateProcessAsUser Lib "kernel32" Alias "CreateProcessAsUserA" (ByVal hToken As Long, ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As SECURITY_ATTRIBUTES, ByVal lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As String, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As STARTUPINFO, ByVal lpProcessInformation As PROCESS_INFORMATION) As Long


Statement:
Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128      '  Maintenance string for PSS usage
End Type


Statement:
Public Const VER_PLATFORM_WIN32_WINDOWS = 1


Statement:
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByVal lpVersionInformation As OSVERSIONINFO) As Long


Statement:
Public Const BATTERY_FLAG_CRITICAL = &H4


Statement:
Public Const BATTERY_FLAG_CHARGING = &H8


Statement:
Public Const BATTERY_FLAG_NO_BATTERY = &H80


Statement:
Public Const BATTERY_FLAG_UNKNOWN = &HFF


Statement:
Public Const BATTERY_PERCENTAGE_UNKNOWN = &HFF


Statement:
Public Const BATTERY_LIFE_UNKNOWN = &HFFFF


Statement:
Type SYSTEM_POWER_STATUS
        ACLineStatus As Byte
        BatteryFlag As Byte
        BatteryLifePercent As Byte
        Reserved1 As Byte
        BatteryLifeTime As Long
        BatteryFullLifeTime As Long
End Type


Statement:
Declare Function GetSystemPowerStatus Lib "kernel32" Alias "GetSystemPowerStatus" (lpSystemPowerStatus As SYSTEM_POWER_STATUS) As Long


Statement:
Declare Function SetSystemPowerState Lib "kernel32" Alias "SetSystemPowerState" (ByVal fSuspend As Long, ByVal fForce As Long) As Long


Statement:
Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type


Statement:
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long


Statement:
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long


Statement:
Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer


Statement:
Public Const OFN_ENABLETEMPLATEHANDLE = &H80


Statement:
Public Const OFN_ALLOWMULTISELECT = &H200


Statement:
Public Const OFN_EXTENSIONDIFFERENT = &H400


Statement:
Public Const OFN_NOREADONLYRETURN = &H8000


Statement:
Public Const OFN_NOTESTFILECREATE = &H10000


Statement:
Public Const OFN_NONETWORKBUTTON = &H20000


Statement:
Public Const OFN_NOLONGNAMES = &H40000                      '  force no long names for 4.x modules


Statement:
Public Const OFN_EXPLORER = &H80000                         '  new look commdlg


Statement:
Public Const OFN_NODEREFERENCELINKS = &H100000


Statement:
Public Const OFN_LONGNAMES = &H200000                       '  force long names for 3.x modules


Statement:
Type NMHDR
    hwndFrom As Long
    idfrom As Long
    code As Long
End Type


Statement:
Type OFNOTIFY
        hdr As NMHDR
        lpOFN As OPENFILENAME
        pszFile As String        '  May be NULL
End Type


Statement:
Public Const CDM_FIRST = (WM_USER + 100)


Statement:
Public Const CDM_GETSPEC = (CDM_FIRST + &H0)


Statement:
Public Const CDM_GETFILEPATH = (CDM_FIRST + &H1)


Statement:
Public Const CDM_GETFOLDERPATH = (CDM_FIRST + &H2)


Statement:
Public Const CDM_GETFOLDERIDLIST = (CDM_FIRST + &H3)


Statement:
Public Const CDM_SETCONTROLTEXT = (CDM_FIRST + &H4)


Statement:
Public Const CDM_HIDECONTROL = (CDM_FIRST + &H5)


Statement:
Public Const CDM_SETDEFEXT = (CDM_FIRST + &H6)


Statement:
Type CHOOSECOLOR
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        rgbResult As Long
        lpCustColors As Long
        flags As Long
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type


Statement:
Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long


Statement:
Public Const CC_ENABLETEMPLATEHANDLE = &H40


Statement:
Type FINDREPLACE
        lStructSize As Long        '  size of this struct 0x20
        hwndOwner As Long          '  handle to owner's window
        hInstance As Long          '  instance handle of.EXE that
                                    '    contains cust. dlg. template
        flags As Long              '  one or more of the FR_??
        lpstrFindWhat As String      '  ptr. to search string
        lpstrReplaceWith As String   '  ptr. to replace string
        wFindWhatLen As Integer       '  size of find buffer
        wReplaceWithLen As Integer    '  size of replace buffer
        lCustData As Long          '  data passed to hook fn.
        lpfnHook As Long            '  ptr. to hook fn. or NULL
        lpTemplateName As String     '  custom template name
End Type


Statement:
Public Const FR_ENABLETEMPLATEHANDLE = &H2000


Statement:
Declare Function FindText Lib "comdlg32.dll" Alias "FindTextA " (pFindreplace As FINDREPLACE) As Long


Statement:
Declare Function ReplaceText Lib "comdlg32.dll" Alias "ReplaceTextA" (pFindreplace As FINDREPLACE) As Long


Statement:
Type CHOOSEFONT
        lStructSize As Long
        hwndOwner As Long          '  caller's window handle
        hdc As Long                '  printer DC/IC or NULL
        lpLogFont As LOGFONT          '  ptr. to a LOGFONT struct
        iPointSize As Long         '  10 * size in points of selected font
        flags As Long              '  enum. type flags
        rgbColors As Long          '  returned text color
        lCustData As Long          '  data passed to hook fn.
        lpfnHook As Long           '  ptr. to hook function
        lpTemplateName As String     '  custom template name
        hInstance As Long          '  instance handle of.EXE that
                                       '    contains cust. dlg. template
        lpszStyle As String          '  return the style field here
                                       '  must be LF_FACESIZE or bigger
        nFontType As Integer          '  same value reported to the EnumFonts
                                       '    call back with the extra FONTTYPE_
                                       '    bits added
        MISSING_ALIGNMENT As Integer
        nSizeMin As Long           '  minimum pt size allowed &
        nSizeMax As Long           '  max pt size allowed if
                                       '    CF_LIMITSIZE is used
End Type


Statement:
Declare Function ChooseFont Lib "comdlg32.dll" Alias "ChooseFontA" (pChoosefont As CHOOSEFONT) As Long


Statement:
Public Const CF_BOTH = (CF_SCREENFONTS Or CF_PRINTERFONTS)


Statement:
Public Const CF_ENABLETEMPLATEHANDLE = &H20&


Statement:
Public Const CF_INITTOLOGFONTSTRUCT = &H40&


Statement:
Public Const CF_SCRIPTSONLY = CF_ANSIONLY


Statement:
Public Const CF_NOOEMFONTS = CF_NOVECTORFONTS


Statement:
Public Const CF_FIXEDPITCHONLY = &H4000&


Statement:
Public Const CF_WYSIWYG = &H8000 '  must also have CF_SCREENFONTS CF_PRINTERFONTS


Statement:
Public Const CF_FORCEFONTEXIST = &H10000


Statement:
Public Const SIMULATED_FONTTYPE = &H8000


Statement:
Public Const WM_CHOOSEFONT_GETLOGFONT = (WM_USER + 1)


Statement:
Public Const WM_CHOOSEFONT_SETLOGFONT = (WM_USER + 101)


Statement:
Public Const WM_CHOOSEFONT_SETFLAGS = (WM_USER + 102)


Statement:
Public Const LBSELCHSTRING = "commdlg_LBSelChangedNotify"


Statement:
Public Const SHAREVISTRING = "commdlg_ShareViolation"


Statement:
Public Const FILEOKSTRING = "commdlg_FileNameOK"


Statement:
Public Const COLOROKSTRING = "commdlg_ColorOK"


Statement:
Public Const SETRGBSTRING = "commdlg_SetRGBColor"


Statement:
Public Const HELPMSGSTRING = "commdlg_help"


Statement:
Public Const FINDMSGSTRING = "commdlg_FindReplace"


Statement:
Type PRINTDLG
        lStructSize As Long
        hwndOwner As Long
        hDevMode As Long
        hDevNames As Long
        hdc As Long
        flags As Long
        nFromPage As Integer
        nToPage As Integer
        nMinPage As Integer
        nMaxPage As Integer
        nCopies As Integer
        hInstance As Long
        lCustData As Long
        lpfnPrintHook As Long
        lpfnSetupHook As Long
        lpPrintTemplateName As String
        lpSetupTemplateName As String
        hPrintTemplate As Long
        hSetupTemplate As Long
End Type


Statement:
Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA" (pPrintdlg As PRINTDLG) As Long


Statement:
Public Const PD_ENABLEPRINTHOOK = &H1000


Statement:
Public Const PD_ENABLESETUPHOOK = &H2000


Statement:
Public Const PD_ENABLEPRINTTEMPLATE = &H4000


Statement:
Public Const PD_ENABLESETUPTEMPLATE = &H8000


Statement:
Public Const PD_ENABLEPRINTTEMPLATEHANDLE = &H10000


Statement:
Public Const PD_ENABLESETUPTEMPLATEHANDLE = &H20000


Statement:
Public Const PD_USEDEVMODECOPIES = &H40000


Statement:
Public Const PD_USEDEVMODECOPIESANDCOLLATE = &H40000


Statement:
Public Const PD_DISABLEPRINTTOFILE = &H80000


Statement:
Public Const PD_HIDEPRINTTOFILE = &H100000


Statement:
Public Const PD_NONETWORKBUTTON = &H200000


Statement:
Type DEVNAMES
        wDriverOffset As Integer
        wDeviceOffset As Integer
        wOutputOffset As Integer
        wDefault As Integer
End Type


Statement:
Declare Function CommDlgExtendedError Lib "comdlg32.dll" Alias "CommDlgExtendedError" () As Long


Statement:
Public Const WM_PSD_PAGESETUPDLG = (WM_USER)


Statement:
Public Const WM_PSD_FULLPAGERECT = (WM_USER + 1)


Statement:
Public Const WM_PSD_MINMARGINRECT = (WM_USER + 2)


Statement:
Public Const WM_PSD_MARGINRECT = (WM_USER + 3)


Statement:
Public Const WM_PSD_GREEKTEXTRECT = (WM_USER + 4)


Statement:
Public Const WM_PSD_ENVSTAMPRECT = (WM_USER + 5)


Statement:
Public Const WM_PSD_YAFULLPAGERECT = (WM_USER + 6)


Statement:
Type PAGESETUPDLG
        lStructSize As Long
        hwndOwner As Long
        hDevMode As Long
        hDevNames As Long
        flags As Long
        ptPaperSize As POINTAPI
        rtMinMargin As Rect
        rtMargin As Rect
        hInstance As Long
        lCustData As Long
        lpfnPageSetupHook As Long
        lpfnPagePaintHook As Long
        lpPageSetupTemplateName As String
        hPageSetupTemplate As Long
End Type


Statement:
Declare Function PageSetupDlg Lib "comdlg32.dll" Alias "PageSetupDlgA" (pPagesetupdlg As PAGESETUPDLG) As Long


Statement:
Public Const PSD_DEFAULTMINMARGINS = &H0 '  default (printer's)


Statement:
Public Const PSD_INWININIINTLMEASURE = &H0 '  1st of 4 possible


Statement:
Public Const PSD_MINMARGINS = &H1 '  use caller's


Statement:
Public Const PSD_MARGINS = &H2 '  use caller's


Statement:
Public Const PSD_INTHOUSANDTHSOFINCHES = &H4 '  2nd of 4 possible


Statement:
Public Const PSD_INHUNDREDTHSOFMILLIMETERS = &H8 '  3rd of 4 possible


Statement:
Public Const PSD_NOWARNING = &H80 '  must be same as PD_*


Statement:
Public Const PSD_DISABLEORIENTATION = &H100


Statement:
Public Const PSD_RETURNDEFAULT = &H400 '  must be same as PD_*


Statement:
Public Const PSD_SHOWHELP = &H800 '  must be same as PD_*


Statement:
Public Const PSD_ENABLEPAGESETUPHOOK = &H2000 '  must be same as PD_*


Statement:
Public Const PSD_ENABLEPAGESETUPTEMPLATE = &H8000 '  must be same as PD_*


Statement:
Public Const PSD_ENABLEPAGESETUPTEMPLATEHANDLE = &H20000 '  must be same as PD_*


Statement:
Public Const PSD_ENABLEPAGEPAINTHOOK = &H40000


Statement:
Public Const PSD_DISABLEPAGEPAINTING = &H80000


Statement:
Declare Function DdeInitialize Lib "user32" Alias "DdeInitializeA" (pidInst As Long, ByVal pfnCallback As Long, ByVal afCmd As Long, ByVal ulRes As Long) As Integer


Statement:
Declare Function SetServiceBits Lib "advapi32" Alias "SetServiceBits" (ByVal hServiceStatus As Long, ByVal dwServiceBits As Long, ByVal bSetBitsOn As Boolean, ByVal bUpdateImmediately As Boolean) As Boolean


Statement:
Declare Function CopyLZFile Lib "lz32" Alias "CopyLZFile" (ByVal n1 As Long, ByVal n2 As Long) As Long


Statement:
Declare Function LZStart Lib "lz32" Alias "LZStart" () As Long


Statement:
Declare Sub LZDone Lib "lz32" Alias "LZDone" ()


Statement:
Declare Function mciGetYieldProc Lib "winmm" Alias "mciGetYieldProc" (ByVal mciId As Long, pdwYieldData As Long) As Long


Statement:
Declare Function mciSetYieldProc Lib "winmm" Alias "mciSetYieldProc" (ByVal mciId As Long, ByVal fpYieldProc As Long, ByVal dwYieldData As Long) As Boolean


Statement:
Declare Function midiOutGetNumDevs Lib "winmm" Alias "midiOutGetNumDevs" () As Integer


Statement:
Declare Function mmioInstallIOProcA Lib "winmm" Alias "mmioInstallIOProcA" (ByVal fccIOProc As String * 4, ByVal pIOProc As Long, ByVal dwFlags As Long) As Long


Statement:
Declare Function CommandLineToArgv Lib "shell32" Alias "CommandLineToArgvW" (ByVal lpCmdLine As String, pNumArgs As Integer) As Long


Statement:
Declare Function IsTextUnicode Lib "advapi32" Alias "IsTextUnicode" (lpBuffer As Any, ByVal cb As Long, lpi As Long) As Boolean


Statement:
Declare Function NotifyChangeEventLog Lib "advapi32" Alias "NotifyChangeEventLog" (ByVal hEventLog As Long, ByVal hEvent As Long) As Boolean


Statement:
Declare Function ObjectOpenAuditAlarm Lib "advapi32" Alias "ObjectOpenAuditAlarmA" (ByVal SubsystemName As String, HandleId As Any, ByVal ObjectTypeName As String, ByVal ObjectName As String, pSecurityDescriptor As SECURITY_DESCRIPTOR, ByVal ClientToken As Long, ByVal DesiredAccess As Long, ByVal GrantedAccess As Long, Privileges As PRIVILEGE_SET, ByVal ObjectCreation As Boolean, ByVal AccessGranted As Boolean, GenerateOnClose As Boolean) As Boolean


Statement:
Declare Function SetThreadToken Lib "advapi32" Alias "SetThreadToken" (Thread As Long, ByVal Token As Long) As Boolean


Statement:
Type COMMCONFIG
    dwSize As Long
    wVersion As Integer
    wReserved As Integer
    dcbx As DCB
    dwProviderSubType As Long
    dwProviderOffset As Long
    dwProviderSize As Long
    wcProviderData As Byte
End Type


Statement:
Declare Function CommConfigDialog Lib "kernel32" Alias "CommConfigDialogA" (ByVal lpszName As String, ByVal hWnd As Long, lpCC As COMMCONFIG) As Boolean


Statement:
Declare Function CreateIoCompletionPort Lib "kernel32" Alias "CreateIoCompletionPort" (ByVal FileHandle As Long, ByVal ExistingCompletionPort As Long, ByVal CompletionKey As Long, ByVal NumberOfConcurrentThreads As Long) As Long


Statement:
Declare Function DisableThreadLibraryCalls Lib "kernel32" Alias "DisableThreadLibraryCalls" (ByVal hLibModule As Long) As Boolean


Statement:
Declare Function EnumResourceLanguages Lib "kernel32" Alias "EnumResourceLanguagesA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpName As String, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumResourceNames Lib "kernel32" Alias "EnumResourceNamesA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumResourceTypes Lib "kernel32" Alias "EnumResourceTypesA" (ByVal hModule As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function FreeEnvironmentStrings Lib "kernel32" Alias "FreeEnvironmentStringsA" (ByVal lpsz As String) As Boolean


Statement:
Declare Sub FreeLibraryAndExitThread Lib "kernel32" Alias "FreeLibraryAndExitThread" (ByVal hLibModule As Long, ByVal dwExitCode As Long)


Statement:
Declare Function FreeResource Lib "kernel32" Alias "FreeResource" (ByVal hResData As Long) As Boolean


Statement:
Declare Function GetCommConfig Lib "kernel32" Alias "GetCommConfig" (ByVal hCommDev As Long, lpCC As COMMCONFIG, lpdwSize As Long) As Boolean


Statement:
Declare Function GetCompressedFileSize Lib "kernel32" Alias "GetCompressedFileSizeA" (ByVal lpFileName As String, lpFileSizeHigh As Long) As Long


Statement:
Declare Function GetDefaultCommConfig Lib "kernel32" Alias "GetDefaultCommConfigA" (ByVal lpszName As String, lpCC As COMMCONFIG, lpdwSize As Long) As Boolean


Statement:
Declare Function GetHandleInformation Lib "kernel32" Alias "GetHandleInformation" (ByVal hObject As Long, lpdwFlags As Long) As Boolean


Statement:
Declare Function GetProcessHeaps Lib "kernel32" Alias "GetProcessHeaps" (ByVal NumberOfHeaps As Long, ProcessHeaps As Long) As Long


Statement:
Declare Function GetProcessWorkingSetSize Lib "kernel32" Alias "GetProcessWorkingSetSize" (ByVal hProcess As Long, lpMinimumWorkingSetSize As Long, lpMaximumWorkingSetSize As Long) As Boolean


Statement:
Declare Function GetQueuedCompletionStatus Lib "kernel32" Alias "GetQueuedCompletionStatus" (ByVal CompletionPort As Long, lpNumberOfBytesTransferred As Long, lpCompletionKey As Long, lpOverlapped As Long, ByVal dwMilliseconds As Long) As Boolean


Statement:
Declare Function GetSystemTimeAdjustment Lib "kernel32" Alias "GetSystemTimeAdjustment" (lpTimeAdjustment As Long, lpTimeIncrement As Long, lpTimeAdjustmentDisabled As Boolean) As Boolean


Statement:
Declare Function GlobalCompact Lib "kernel32" Alias "GlobalCompact" (ByVal dwMinFree As Long) As Long


Statement:
Declare Sub GlobalFix Lib "kernel32" Alias "GlobalFix" (ByVal hMem As Long)


Statement:
Declare Sub GlobalUnfix Lib "kernel32" Alias "GlobalUnfix" (ByVal hMem As Long)


Statement:
Declare Function GlobalWire Lib "kernel32" Alias "GlobalWire" (ByVal hMem As Long) As Long


Statement:
Declare Function GlobalUnWire Lib "kernel32" Alias "GlobalUnWire" (ByVal hMem As Long) As Boolean


Statement:
Declare Function IsBadCodePtr Lib "kernel32" Alias "IsBadCodePtr" (ByVal lpfn As Long) As Boolean


Statement:
Declare Function LocalCompact Lib "kernel32" Alias "LocalCompact" (ByVal uMinFree As Long) As Long


Statement:
Declare Function LocalShrink Lib "kernel32" Alias "LocalShrink" (ByVal hMem As Long, ByVal cbNewSize As Long) As Long


Statement:
Declare Function ReadFileEx Lib "kernel32" Alias "ReadFileEx" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpOverlapped As OVERLAPPED, ByVal lpCompletionRoutine As Long) As Boolean


Statement:
Declare Function SetCommConfig Lib "kernel32" Alias "SetCommConfig" (ByVal hCommDev As Long, lpCC As COMMCONFIG, ByVal dwSize As Long) As Boolean


Statement:
Declare Function SetDefaultCommConfig Lib "kernel32" Alias "SetDefaultCommConfigA" (ByVal lpszName As String, lpCC As COMMCONFIG, ByVal dwSize As Long) As Boolean


Statement:
Declare Sub SetFileApisToANSI Lib "kernel32" Alias "SetFileApisToANSI" ()


Statement:
Declare Function SetHandleInformation Lib "kernel32" Alias "SetHandleInformation" (ByVal hObject As Long, ByVal dwMask As Long, ByVal dwFlags As Long) As Boolean


Statement:
Declare Function SetProcessWorkingSetSize Lib "kernel32" Alias "SetProcessWorkingSetSize" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Boolean


Statement:
Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long


Statement:
Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" (ByVal lpString1 As String, ByVal lpString2 As String, ByVal iMaxLength As Long) As Long


Statement:
Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long


Statement:
Declare Function SetSystemTimeAdjustment Lib "kernel32" Alias "SetSystemTimeAdjustment" (ByVal dwTimeAdjustment As Long, ByVal bTimeAdjustmentDisabled As Boolean) As Boolean


Statement:
Declare Function SetThreadAffinityMask Lib "kernel32" Alias "SetThreadAffinityMask" (ByVal hThread As Long, ByVal dwThreadAffinityMask As Long) As Long


Statement:
Declare Function SetUnhandledExceptionFilter Lib "kernel32" Alias "SetUnhandledExceptionFilter" (ByVal lpTopLevelExceptionFilter As Long) As Long


Statement:
Declare Function SystemTimeToTzSpecificLocalTime Lib "kernel32" Alias "SystemTimeToTzSpecificLocalTime" (lpTimeZoneInformation As TIME_ZONE_INFORMATION, lpUniversalTime As SYSTEMTIME, lpLocalTime As SYSTEMTIME) As Boolean


Statement:
Declare Function WriteFileEx Lib "kernel32" Alias "WriteFileEx" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpOverlapped As OVERLAPPED, ByVal lpCompletionRoutine As Long) As Boolean


Statement:
Type PIXELFORMATDESCRIPTOR
    nSize As Integer
    nVersion As Integer
    dwFlags As Long
    iPixelType As Byte
    cColorBits As Byte
    cRedBits As Byte
    cRedShift As Byte
    cGreenBits As Byte
    cGreenShift As Byte
    cBlueBits As Byte
    cBlueShift As Byte
    cAlphaBits As Byte
    cAlphaShift As Byte
    cAccumBits As Byte
    cAccumRedBits As Byte
    cAccumGreenBits As Byte
    cAccumBlueBits As Byte
    cAccumAlphaBits As Byte
    cDepthBits As Byte
    cStencilBits As Byte
    cAuxBuffers As Byte
    iLayerType As Byte
    bReserved As Byte
    dwLayerMask As Long
    dwVisibleMask As Long
    dwDamageMask As Long
End Type


Statement:
Declare Function ChoosePixelFormat Lib "gdi32" Alias "ChoosePixelFormat" (ByVal hDC As Long, pPixelFormatDescriptor As PIXELFORMATDESCRIPTOR) As Long


Statement:
Declare Function CreateDIBSection Lib "gdi32" Alias "CreateDIBSection" (ByVal hDC As Long, pBitmapInfo As BITMAPINFO, ByVal un As Long, ByVal lplpVoid As Long, ByVal handle As Long, ByVal dw As Long) As Long


Statement:
Declare Function DescribePixelFormat Lib "gdi32" Alias "DescribePixelFormat" (ByVal hDC As Long, ByVal n As Long, ByVal un As Long, lpPixelFormatDescriptor As PIXELFORMATDESCRIPTOR) As Long


Statement:
Declare Function EndDoc Lib "gdi32" Alias "EndDoc" (ByVal hDC As Long) As Long


Statement:
Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long


Statement:
Declare Function EnumMetaFile Lib "gdi32" Alias "EnumMetaFile" (ByVal hDC As Long, ByVal hMetafile As Long, ByVal lpMFEnumProc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumObjects Lib "gdi32" Alias "EnumObjects" (ByVal hDC As Long, ByVal n As Long, ByVal lpGOBJEnumProc As Long, lpVoid As Any) As Long


Statement:
Declare Function FixBrushOrgEx Lib "gdi32" Alias "FixBrushOrgEx" (ByVal hDC As Long, ByVal n1 As Long, ByVal n2 As Long, lpPoint As POINTAPI) As Boolean


Statement:
Declare Function GetBrushOrgEx Lib "gdi32" Alias "GetBrushOrgEx" (ByVal hDC As Long, lpPoint As POINTAPI) As Boolean


Statement:
Declare Function GetCharWidth Lib "gdi32" Alias "GetCharWidthA" (ByVal hDC As Long, ByVal un1 As Long, ByVal un2 As Long, lpn As Long) As Boolean


Statement:
Declare Function GetDIBColorTable Lib "gdi32" Alias "GetDIBColorTable" (ByVal hDC As Long, ByVal un1 As Long, ByVal un2 As Long, pRGBQuad As RGBQUAD) As Long


Statement:
Declare Function GetPixelFormat Lib "gdi32" Alias "GetPixelFormat" (ByVal hDC As Long) As Long


Statement:
Declare Function LineDDA Lib "gdi32" Alias "LineDDA" (ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal lpLineDDAProc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function SetAbortProc Lib "gdi32" Alias "SetAbortProc" (ByVal hDC As Long, ByVal lpAbortProc As Long) As Long


Statement:
Declare Function SetDIBColorTable Lib "gdi32" Alias "SetDIBColorTable" (ByVal hDC As Long, ByVal un1 As Long, ByVal un2 As Long, pcRGBQuad As RGBQUAD) As Long


Statement:
Declare Function SetPixelFormat Lib "gdi32" Alias "SetPixelFormat" (ByVal hDC As Long, ByVal n As Long, pcPixelFormatDescriptor As PIXELFORMATDESCRIPTOR) As Boolean


Statement:
Declare Function SwapBuffers Lib "gdi32" Alias "SwapBuffers" (ByVal hDC As Long) As Boolean


Statement:
Declare Function EnumCalendarInfo Lib "kernel32" Alias "EnumCalendarInfoA" (ByVal lpCalInfoEnumProc As Long, ByVal Locale As Long, ByVal Calendar As Long, ByVal CalType As Long) As Boolean


Statement:
Declare Function GetCurrencyFormat Lib "kernel32" Alias "GetCurrencyFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As CURRENCYFMT, ByVal lpCurrencyStr As String, ByVal cchCurrency As Long) As Long


Statement:
Declare Function GetNumberFormat Lib "kernel32" Alias "GetNumberFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As NUMBERFMT, ByVal lpNumberStr As String, ByVal cchNumber As Long) As Long


Statement:
Declare Function GetStringTypeEx Lib "kernel32" Alias "GetStringTypeExA" (ByVal Locale As Long, ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, lpCharType As Integer) As Boolean


Statement:
Declare Function GetStringTypeW Lib "kernel32" Alias "GetStringTypeW" (ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, lpCharType As Integer) As Boolean


Statement:
Declare Function IsDBCSLeadByte Lib "kernel32" Alias "IsDBCSLeadByte" (ByVal TestChar As Byte) As Boolean


Statement:
Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean


Statement:
Declare Function DeletePrinter Lib "winspool" Alias "DeletePrinter" (ByVal hPrinter As Long) As Boolean


Statement:
Declare Function FindClosePrinterChangeNotification Lib "winspool" Alias "FindClosePrinterChangeNotification" (ByVal hChange As Long) As Boolean


Statement:
Declare Function FindFirstPrinterChangeNotification Lib "winspool" Alias "FindFirstPrinterChangeNotification" (ByVal hPrinter As Long, ByVal fdwFlags As Long, ByVal fdwOptions As Long, ByVal pPrinterNotifyOptions As String) As Long


Statement:
Declare Function FindNextPrinterChangeNotification Lib "winspool" Alias "FindNextPrinterChangeNotification" (ByVal hChange As Long, pdwChange As Long, ByVal pvReserved As String, ByVal ppPrinterNotifyInfo As Long) As Boolean


Statement:
Declare Function GetPrinter Lib "winspool" Alias "GetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal cbBuf As Long, pcbNeeded As Long) As Boolean


Statement:
Declare Function SetPrinter Lib "winspool" Alias "SetPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pPrinter As Byte, ByVal Command As Long) As Boolean


Statement:
Declare Function BroadcastSystemMessage Lib "user32" Alias "BroadcastSystemMessage" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Statement:
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Statement:
Declare Function CascadeWindows Lib "user32" Alias "CascadeWindows" (ByVal hwndParent As Long, ByVal wHow As Long, ByVal lpRect As RECT, ByVal cKids As Long, lpkids As Long) As Integer


Statement:
Declare Function ChangeMenu Lib "user32" Alias "ChangeMenuA" (ByVal hMenu As Long, ByVal cmd As Long, ByVal lpszNewItem As String, ByVal cmdInsert As Long, ByVal flags As Long) As Boolean


Statement:
Declare Function CheckMenuRadioItem Lib "user32" Alias "CheckMenuRadioItem" (ByVal hMenu As Long, ByVal un1 As Long, ByVal un2 As Long, ByVal un3 As Long, ByVal un4 As Long) As Boolean


Statement:
Declare Function ChildWindowFromPoint Lib "user32" Alias "ChildWindowFromPoint" (ByVal hWndParent As Long, ByVal pt As POINTAPI) As Long


Statement:
Declare Function ChildWindowFromPointEx Lib "user32" Alias "ChildWindowFromPointEx" (ByVal hWnd As Long, ByVal pt As POINTAPI, ByVal un As Long) As Long


Statement:
Declare Function CloseDesktop Lib "user32" Alias "CloseDesktop" (ByVal hDesktop As Long) As Boolean


Statement:
Declare Function CloseWindowStation Lib "user32" Alias "CloseWindowStation" (ByVal hWinSta As Long) As Boolean


Statement:
Declare Function CopyImage Lib "user32" Alias "CopyImage" (ByVal handle As Long, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long


Statement:
Declare Function CreateDesktop Lib "user32" Alias "CreateDesktopA" (ByVal lpszDesktop As String, ByVal lpszDevice As String, pDevmode As DEVMODE, ByVal dwFlags As Long, ByVal dwDesiredAccess As Long, lpsa As SECURITY_ATTRIBUTES) As Long


Statement:
Declare Function CreateDialogIndirectParam Lib "user32" Alias "CreateDialogIndirectParamA" (ByVal hInstance As Long, lpTemplate As DLGTEMPLATE, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Long


Statement:
Declare Function CreateDialogParam Lib "user32" Alias "CreateDialogParamA" (ByVal hInstance As Long, ByVal lpName As String, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal lParamInit As Long) As Long


Statement:
Declare Function CreateIconFromResource Lib "user32" Alias "CreateIconFromResource" (presbits As Byte, ByVal dwResSize As Long, ByVal fIcon As Boolean, ByVal dwVer As Long) As Long


Statement:
Declare Function DialogBoxIndirectParam Lib "user32" Alias "DialogBoxIndirectParamA" (ByVal hInstance As Long, hDialogTemplate As DLGTEMPLATE, ByVal hWndParent As Long, ByVal lpDialogFunc As Long, ByVal dwInitParam As Long) As Long


Statement:
Declare Function DragDetect Lib "user32" Alias "DragDetect" (ByVal hWnd As Long, ByVal pt As POINTAPI) As Boolean


Statement:
Declare Function DragObject Lib "user32" Alias "DragObject" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal un As Long, ByVal dw As Long, ByVal hCursor As Long) As Long


Statement:
Declare Function DrawAnimatedRects Lib "user32" Alias "DrawAnimatedRects" (ByVal hwnd As Long, ByVal idAni As Long, lprcFrom As Rect, lprcTo As Rect) As Boolean


Statement:
Declare Function DrawCaption Lib "user32" Alias "DrawCaption" (ByVal hWnd As Long, ByVal hDC As Long, pcRect As Rect, ByVal un As Long) As Boolean


Statement:
Declare Function DrawEdge Lib "user32" Alias "DrawEdge" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Boolean


Statement:
Declare Function DrawFrameControl Lib "user32" Alias "DrawFrameControl" (ByVal hDC As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Boolean


Statement:
Declare Function DrawIconEx Lib "user32" Alias "DrawIconEx" (ByVal hdc As Long, ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Boolean


Statement:
Declare Function DrawState Lib "user32" Alias "DrawStateA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpDrawStateProc As Long, ByVal lParam As Long, ByVal wParam As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal n3 As Long, ByVal n4 As Long, ByVal un As Long) As Boolean


Statement:
Type DRAWTEXTPARAMS
	cbSize As Long
	iTabLength As Long
	iLeftMargin As Long
	iRightMargin As Long
	uiLengthDrawn As Long
End Type


Statement:
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, lpDrawTextParams As DRAWTEXTPARAMS) As Long


Statement:
Declare Function EnumChildWindows Lib "user32" Alias "EnumChildWindows" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumDesktops Lib "user32" Alias "EnumDesktopsA" (ByVal hwinsta As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumDesktopWindows Lib "user32" Alias "EnumDesktopWindows" (ByVal hDesktop As Long, ByVal lpfn As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumPropsEx Lib "user32" Alias "EnumPropsExA" (ByVal hWnd As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long


Statement:
Declare Function EnumProps Lib "user32" Alias "EnumPropsA" (ByVal hWnd As Long, ByVal lpEnumFunc As Long) As Long


Statement:
Declare Function EnumThreadWindows Lib "user32" Alias "EnumThreadWindows" (ByVal dwThreadId As Long, ByVal lpfn As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function EnumWindowStations Lib "user32" Alias "EnumWindowStationsA" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean


Statement:
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long


Statement:
Declare Function GetKeyboardLayoutList Lib "user32" Alias "GetKeyboardLayoutList" (ByVal nBuff As Long, lpList As Long) As Long


Statement:
Declare Function GetKeyboardLayout Lib "user32" Alias "GetKeyboardLayout" (ByVal dwLayout As Long) As Long


Statement:
Declare Function GetMenuContextHelpId Lib "user32" Alias "GetMenuContextHelpId" (ByVal hMenu As Long) As Long


Statement:
Declare Function GetMenuDefaultItem Lib "user32" Alias "GetMenuDefaultItem" (ByVal hMenu As Long, ByVal fByPos As Long, ByVal gmdiFlags As Long) As Long


Statement:
Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hSubMenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type


Statement:
Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Boolean


Statement:
Declare Function GetMenuItemRect Lib "user32" Alias "GetMenuItemRect" (ByVal hWnd As Long, ByVal hMenu As Long, ByVal uItem As Long, lprcItem As RECT) As Boolean


Statement:
Type SCROLLINFO
	cbSize As Long
	fMask As Long
	nMin As Long
	nMax As Long
	nPage As Long
	nPos As Long
	nTrackPos As Long
End Type


Statement:
Declare Function GetScrollInfo Lib "user32" Alias "GetScrollInfo" (ByVal hWnd As Long, ByVal n As Long, lpScrollInfo As SCROLLINFO) As Boolean


Statement:
Declare Function GetSysColorBrush Lib "user32" Alias "GetSysColorBrush" (ByVal nIndex As Long) As Long


Statement:
Declare Function GetUserObjectInformation Lib "user32" Alias "GetUserObjectInformationA" (ByVal hObj As Long, ByVal nIndex As Long, pvInfo As Any, ByVal nLength As Long, lpnLengthNeeded As Long) As Boolean


Statement:
Declare Function GetWindowContextHelpId Lib "user32" Alias "GetWindowContextHelpId" (ByVal hWnd As Long) As Long


Statement:
Declare Function GetWindowRgn Lib "user32" Alias "GetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long) As Long


Statement:
Declare Function GrayString Lib "user32" Alias "GrayStringA" (ByVal hDC As Long, ByVal hBrush As Long, ByVal lpOutputFunc As Long, ByVal lpData As Long, ByVal nCount As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Boolean


Statement:
Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, ByVal lpcMenuItemInfo As MENUITEMINFO) As Boolean


Statement:
Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long


Statement:
Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long


Statement:
Declare Function LookupIconIdFromDirectoryEx Lib "user32" Alias "LookupIconIdFromDirectoryEx" (presbits As Byte, ByVal fIcon As Boolean, ByVal cxDesired As Long, ByVal cyDesired As Long, ByVal Flags As Long) As Long


Statement:
Declare Function MapVirtualKeyEx Lib "user32" Alias "MapVirtualKeyExA" (ByVal uCode As Long, ByVal uMapType As Long, ByVal dwhkl As Long) As Long


Statement:
Declare Function MenuItemFromPoint Lib "user32" Alias "MenuItemFromPoint" (ByVal hWnd As Long, ByVal hMenu As Long, ByVal ptScreen As POINTAPI) As Long


Statement:
Type MSGBOXPARAMS
	cbSize As Long
	hwndOwner As Long
	hInstance As Long
	lpszText As String
	lpszCaption As String
	dwStyle As Long
	lpszIcon As String
	dwContextHelpId As Long
	lpfnMsgBoxCallback As Long
	dwLanguageId As Long
End Type


Statement:
Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long


Statement:
Declare Function OpenDesktop Lib "user32" Alias "OpenDesktopA" (ByVal lpszDesktop As String, ByVal dwFlags As Long, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Long) As Long


Statement:
Declare Function OpenInputDesktop Lib "user32" Alias "OpenInputDesktop" (ByVal dwFlags As Long, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Long) As Long


Statement:
Declare Function OpenWindowStation Lib "user32" Alias "OpenWindowStationA" (ByVal lpszWinSta As String, ByVal fInherit As Boolean, ByVal dwDesiredAccess As Long) As Long


Statement:
Declare Function PaintDesktop Lib "user32" Alias "PaintDesktop" (ByVal hdc As Long) As Boolean


Statement:
Type WNDCLASSEX
    cbSize As Long
    style As Long
    lpfnWndProc As Long
    cbClsExtra As Long
    cbWndExtra As Long
    hInstance As Long
    hIcon As Long
    hCursor As Long
    hbrBackground As Long
    lpszMenuName As String
    lpszClassName As String
    hIconSm As Long
End Type


Statement:
Declare Function RegisterClassEx Lib "user32" Alias "RegisterClassExA" (pcWndClassEx As WNDCLASSEX) As Integer


Statement:
Declare Function SetMenuContextHelpId Lib "user32" Alias "SetMenuContextHelpId" (ByVal hMenu As Long, ByVal dw As Long) As Boolean


Statement:
Declare Function SetMenuDefaultItem Lib "user32" Alias "SetMenuDefaultItem" (ByVal hMenu As Long, ByVal uItem As Long, ByVal fByPos As Long) As Boolean


Statement:
Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Boolean


Statement:
Declare Function SetMessageExtraInfo Lib "user32" Alias "SetMessageExtraInfo" (ByVal lParam As Long) As Long


Statement:
Declare Function SetMessageQueue Lib "user32" Alias "SetMessageQueue" (ByVal cMessagesMax As Long) As Boolean


Statement:
Declare Function SetProcessWindowStation Lib "user32" Alias "SetProcessWindowStation" (ByVal hWinSta As Long) As Boolean


Statement:
Declare Function SetScrollInfo Lib "user32" Alias "SetScrollInfo" (ByVal hWnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Boolean) As Long


Statement:
Declare Function SetSystemCursor Lib "user32" Alias "SetSystemCursor" (ByVal hcur As Long, ByVal id As Long) As Boolean


Statement:
Declare Function SetThreadDesktop Lib "user32" Alias "SetThreadDesktop" (ByVal hDesktop As Long) As Boolean


Statement:
Declare Function SetTimer Lib "user32" Alias "SetTimer" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long,, ByVal lpTimerFunc As Long) As Long


Statement:
Declare Function SetUserObjectInformation Lib "user32" Alias "SetUserObjectInformationA" (ByVal hObj As Long, ByVal nIndex As Long, pvInfo As Any, ByVal nLength As Long) As Boolean


Statement:
Declare Function SetWindowContextHelpId Lib "user32" Alias "SetWindowContextHelpId" (ByVal hWnd As Long, ByVal dw As Long) As Boolean


Statement:
Declare Function SetWindowRgn Lib "user32" Alias "SetWindowRgn" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long


Statement:
Declare Function SetWindowsHook Lib "user32" Alias "SetWindowsHookA" (ByVal nFilterType As Long, ByVal pfnFilterProc As Long) As Long


Statement:
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long


Statement:
Declare Function ShowWindowAsync Lib "user32" Alias "ShowWindowAsync" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Boolean


Statement:
Declare Function SwitchDesktop Lib "user32" Alias "SwitchDesktop" (ByVal hDesktop As Long) As Boolean


Statement:
Declare Function TileWindows Lib "user32" Alias "TileWindows" (ByVal hwndParent As Long, ByVal wHow As Long, lpRect As Rect, ByVal cKids As Long, lpKids As Long) As Integer


Statement:
Declare Function ToAsciiEx Lib "user32" Alias "ToAsciiEx" (ByVal uVirtKey As Long, ByVal uScanCode As Long, lpKeyState As Byte, lpChar As Integer, ByVal uFlags As Long, ByVal dwhkl As Long) As Long


Statement:
Type TPMPARAMS
    cbSize As Long
    rcExclude As Rect
End Type


Statement:
Declare Function TrackPopupMenuEx Lib "user32" Alias "TrackPopupMenuEx" (ByVal hMenu As Long, ByVal un As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal hWnd As Long, lpTPMParams As TPMPARAMS) As Boolean


Statement:
Declare Function UnhookWindowsHook Lib "user32" Alias "UnhookWindowsHook" (ByVal nCode As Long, ByVal pfnFilterProc As Long) As Boolean


Statement:
Declare Function VkKeyScanEx Lib "user32" Alias "VkKeyScanExA" (ByVal ch As Byte, ByVal dwhkl As Long) As Integer


Statement:
Declare Function WNetGetUniversalName Lib "mpr" Alias "WNetGetUniversalNameA" (ByVal lpLocalPath As String, ByVal dwInfoLevel As Long, lpBuffer As Any, lpBufferSize As Long) As Long


Statement:
Declare Function WNetGetUser Lib "mpr" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long


Statement:
Declare Function WNetOpenEnum Lib "mpr" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, lphEnum As Long) As Long


Statement:
Type RECT
	left As Integer
	top As Integer
	right As Integer
	bottom As Integer
End Type


Statement:
Type POINTAPI
	x As Integer
	y As Integer
End Type


Statement:
Type PARAMETERBLOCK
	wEnvSeg As Integer
	lpCmdLine As Long
	lpCmdShow As Long
	dwReserved As Long
End Type


Statement:
Declare Function GetNumTasks Lib "Kernel" () As Integer


Statement:
Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer


Statement:
Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer


Statement:
Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule As Integer, ByVal lpFilename As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function GetInstanceData Lib "Kernel" (ByVal hInstance As Integer, ByVal pData As Integer, ByVal nCount As Integer) As Integer


Statement:
Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer


Statement:
Declare Function LoadModule Lib "Kernel" (ByVal lpModuleName As String, lpParameterBlock As PARAMETERBLOCK) As Integer


Statement:
Declare Sub FreeModule Lib "Kernel" (ByVal hModule As Integer)


Statement:
Declare Sub FreeLibrary Lib "Kernel" (ByVal hLibModule As Integer)


Statement:
Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long


Statement:
Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer


Statement:
Declare Sub OutputDebugString Lib "Kernel" (ByVal lpOutputString As String)


Statement:
Declare Sub SwitchStackBack Lib "Kernel" ()


Statement:
Declare Sub SwitchStackTo Lib "Kernel" (ByVal wStackSegment As Integer, ByVal wStackPointer As Integer, ByVal wStackTop As Integer)


Statement:
Declare Function GetCurrentPDB Lib "Kernel" () As Integer


Statement:
Declare Function GetVersion Lib "Kernel" () As Long


Statement:
Type OFSTRUCT
	cBytes As String * 1
	fFixedDisk As String * 1
	nErrCode As Integer
	reserved As String * 4
	szPathName As String * 128
End Type


Statement:
Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Integer) As Integer


Statement:
Declare Function GetTempDrive Lib "Kernel" (ByVal cDriveLetter as Integer) As Integer


Statement:
Declare Function GetTempFileName Lib "Kernel" (ByVal cDriveLetter as Integer, ByVal lpPrefixString As String, ByVal wUnique As Integer, ByVal lpTempFileName As String) As Integer


Statement:
Declare Function SetHandleCount Lib "Kernel" (ByVal wNumber As Integer) As Integer


Statement:
Declare Function GetDriveType Lib "Kernel" (ByVal nDrive As Integer) As Integer


Statement:
Declare Function GlobalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal dwBytes As Long) As Integer


Statement:
Declare Function GlobalCompact Lib "Kernel" (ByVal dwMinFree As Long) As Long


Statement:
Declare Function GlobalFree Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function GlobalHandle Lib "Kernel" (ByVal wMem As Integer) As Long


Statement:
Declare Function GlobalLock Lib "Kernel" (ByVal hMem As Integer) As Long


Statement:
Declare Function GlobalReAlloc Lib "Kernel" (ByVal hMem As Integer, ByVal dwBytes As  Long, ByVal wFlags As Integer) As Integer


Statement:
Declare Function GlobalSize Lib "Kernel" (ByVal hMem As Integer) As Long


Statement:
Declare Function GlobalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function UnlockResource Lib "Kernel" Alias "GlobalUnlock" (ByVal hMem As Integer) As Integer


Statement:
Declare Function GlobalFlags Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function GlobalWire Lib "Kernel" (ByVal hMem As Integer) As Long


Statement:
Declare Function GlobalUnWire Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function GlobalLRUNewest Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function GlobalLRUOldest Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function GlobalPageLock Lib "Kernel" (ByVal wSelector As Integer) As Integer


Statement:
Declare Function GlobalPageUnlock Lib "Kernel" (ByVal wSelector As Integer) As Integer


Statement:
Declare Sub GlobalFix Lib "Kernel" (ByVal hMem As Integer)


Statement:
Declare Function GlobalUnfix Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function LockSegment Lib "Kernel" (ByVal wSegment As Integer) As Integer


Statement:
Declare Function UnlockSegment Lib "Kernel" (ByVal wSegment As Integer) As Integer


Statement:
Public Const LHND = (LMEM_MOVEABLE+LMEM_ZEROINIT)


Statement:
Public Const LPTR = (LMEM_FIXED+LMEM_ZEROINIT)


Statement:
Declare Function LocalAlloc Lib "Kernel" (ByVal wFlags As Integer, ByVal wBytes As Integer) As Integer


Statement:
Declare Function LocalCompact Lib "Kernel" (ByVal wMinFree As Integer) As Integer


Statement:
Declare Function LocalFree Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function LocalHandle Lib "Kernel" (ByVal wMem As Integer) As Integer


Statement:
Declare Function LocalInit Lib "Kernel" (ByVal wSegment As Integer, ByVal pStart As Integer, ByVal pEnd As Integer) As Integer


Statement:
Declare Function LocalLock Lib "Kernel" (ByVal hMem As Integer) As Integer '(returns a near  pointer)


Statement:
Declare Function LocalReAlloc Lib "Kernel" (ByVal hMem As Integer, ByVal wBytes As Integer, ByVal wFlags As Integer) As Integer


Statement:
Declare Function LocalSize Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function LocalUnlock Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function LocalFlags Lib "Kernel" (ByVal hMem As Integer) As Integer


Statement:
Declare Function LocalShrink Lib "Kernel" (ByVal hSeg As Integer, ByVal wSize As Integer) As  Integer


Statement:
Declare Function SetSwapAreaSize Lib "Kernel" (ByVal rsSize As Integer) As Long


Statement:
Declare Function ValidateFreeSpaces Lib "Kernel" () As Long


Statement:
Declare Sub LimitEmsPages Lib "Kernel" (ByVal dwKbytes As Long)


Statement:
Declare Function SetErrorMode Lib "Kernel" (ByVal wMode As Integer) As Integer


Statement:
Declare Sub ValidateCodeSegments Lib "Kernel" ()


Statement:
Declare Function GetDOSEnvironment Lib "Kernel" () As Long


Statement:
Declare Function AllocDStoCSAlias Lib "Kernel" (ByVal wSelector As Integer) As Integer


Statement:
Declare Function AllocSelector Lib "Kernel" (ByVal wSelector As Integer) As Integer


Statement:
Declare Function ChangeSelector Lib "Kernel" (ByVal wDestSelector As Integer, ByVal  wSourceSelector As Integer) As Integer


Statement:
Declare Function FreeSelector Lib "Kernel" (ByVal wSelector As Integer) As Integer


Statement:
Declare Function FindResource Lib "Kernel" (ByVal hInstance As Integer, ByVal lpName As String, ByVal lpType As Any) As Integer


Statement:
Declare Function LoadResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As Integer) As Integer


Statement:
Declare Function FreeResource Lib "Kernel" (ByVal hResData As Integer) As Integer


Statement:
Declare Function LockResource Lib "Kernel" (ByVal hResData As Integer) As Long


Statement:
Declare Function AllocResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As  Integer, ByVal dwSize As Long) As Integer


Statement:
Declare Function SizeofResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo As  Integer) As Integer


Statement:
Declare Function AccessResource Lib "Kernel" (ByVal hInstance As Integer, ByVal hResInfo  As Integer) As Integer


Statement:
Declare Function GetCurrentTask Lib "Kernel" () As Integer


Statement:
Declare Function InitAtomTable Lib "Kernel" (ByVal nSize As Integer) As Integer


Statement:
Declare Function AddAtom Lib "Kernel" (ByVal lpString As String) As Integer


Statement:
Declare Function DeleteAtom Lib "Kernel" (ByVal nAtom As Integer) As Integer


Statement:
Declare Function FindAtom Lib "Kernel" (ByVal lpString As String) As Integer


Statement:
Declare Function GetAtomName Lib "Kernel" (ByVal nAtom As Integer, ByVal lpBuffer As  String, ByVal nSize As Integer) As Integer


Statement:
Declare Function GlobalAddAtom Lib "User" (ByVal lpString As String) As Integer


Statement:
Declare Function GlobalDeleteAtom Lib "User" (ByVal nAtom As Integer) As Integer


Statement:
Declare Function GlobalFindAtom Lib "User" (ByVal lpString As String) As Integer


Statement:
Declare Function GlobalGetAtomName Lib "User" (ByVal nAtom As Integer, ByVal lpbuffer  As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function GetAtomHandle Lib "Kernel" (ByVal wAtom As Integer) As Integer


Statement:
Declare Function GetProfileInt Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer) As Integer


Statement:
Declare Function GetProfileString Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As  Integer) As Integer


Statement:
Declare Function WriteProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any) As Integer


Statement:
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer


Statement:
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer


Statement:
Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Integer


Statement:
Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function Catch Lib "Kernel" (lpCatchBuf As Any) As Integer


Statement:
Declare Sub Throw Lib "Kernel" (lpCatchBuf As Any, ByVal nThrowBack As Integer)


Statement:
Declare Sub FatalExit Lib "Kernel" (ByVal Code As Integer)


Statement:
Declare Sub SwapRecording Lib "Kernel" (ByVal wFlag As Integer)


Statement:
Declare Function AnsiToOem Lib "Keyboard" (ByVal lpAnsiStr As String, ByVal lpOemStr As String) As Integer


Statement:
Declare Function OemToAnsi Lib "Keyboard" (ByVal lpOemStr As String, ByVal lpAnsiStr As String) As Integer


Statement:
Declare Sub AnsiToOemBuff Lib "Keyboard" (ByVal lpAnsiStr As String, ByVal lpOemStr As String, ByVal nLength As Integer)


Statement:
Declare Sub OemToAnsiBuff Lib "Keyboard" (ByVal lpOemStr As String, ByVal lpAnsiStr As String, ByVal nLength as Integer)


Statement:
Declare Function AnsiUpper Lib "User" (ByVal lpString As String) As String


Statement:
Declare Function AnsiUpperBuff Lib "User" (ByVal lpString As String, ByVal aWORD As Integer) As Integer


Statement:
Declare Function AnsiLower Lib "User" (ByVal lpString As String) As Long


Statement:
Declare Function AnsiLowerBuff Lib "User" (ByVal lpString As String, ByVal aWORD As Integer) As Integer


Statement:
Declare Function AnsiNext Lib "User" (ByVal lpString As String) As Long


Statement:
Declare Function AnsiPrev Lib "User" (ByVal lpString As String, ByVal lpString As String) As Long


Statement:
Declare Function OemKeyScan Lib "Keyboard" (ByVal wOemChar As Integer) As Long


Statement:
Declare Function VkKeyScan Lib "Keyboard" (ByVal cChar As Integer) As Integer


Statement:
Declare Function GetKeyboardType Lib "Keyboard" (ByVal nTypeFlag As Integer) As Integer


Statement:
Declare Function MapVirtualKey Lib "Keyboard" (ByVal wCode As Integer, ByVal wMapType As Integer) As Integer


Statement:
Declare Function GetKBCodePage Lib "Keyboard" ()


Statement:
Declare Function GetKeyNameText Lib "Keyboard" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function ToAscii Lib "Keyboard" (ByVal wVirtKey As Integer, ByVal wScanCode As Integer, lpKeyState As Any, lpChar As Any, Byval wFlags As Integer) As Integer


Statement:
Declare Function IsCharAlpha Lib "User" (ByVal cChar As Integer) As Integer


Statement:
Declare Function IsCharAlphaNumeric Lib "User" (ByVal cChar As Integer) As Integer


Statement:
Declare Function IsCharUpper Lib "User" (ByVal cChar As Integer) As Integer


Statement:
Declare Function IsCharLower Lib "User" (ByVal cChar As Integer) As Integer


Statement:
Declare Function GetWinFlags Lib "Kernel" () As Long


Statement:
Public Const BLACKNESS = &H42&  ' (DWORD) dest = BLACK


Statement:
Public Const META_SCALEWINDOWEXT = &H400


Statement:
Public Const META_CREATEBITMAPINDIRECT = &H2FD


Statement:
Type BITMAP '14 bytes
	bmType As Integer
	bmWidth As Integer
	bmHeight As Integer
	bmWidthBytes As Integer
	bmPlanes As String * 1
	bmBitsPixel As String * 1
	bmBits As Long
End Type


Statement:
Type RGBTRIPLE
	rgbtBlue As String * 1
	rgbtGreen As String * 1
	rgbtRed As String * 1
End Type


Statement:
Type RGBQUAD
	rgbBlue as String * 1
	rgbGreen As String * 1
	rgbRed As String * 1
	rgbReserved As String * 1
End Type


Statement:
Type BITMAPCOREHEADER '12 bytes
	bcSize as Long
	bcWidth As Integer
	bcHeight As Integer
	bcPlanes As Integer
	bcBitCount As Integer
End Type


Statement:
Type BITMAPINFOHEADER '40 bytes
	biSize As Long
	biWidth As Long
	biHeight As Long
	biPlanes As Integer
	biBitCount As Integer
	biCompression As Long
	biSizeImage As Long
	biXPelsPerMeter As Long
	biYPelsPerMeter As Long
	biClrUsed As Long
	biClrImportant As Long
End Type


Statement:
Type BITMAPINFO
	bmiHeader as BITMAPINFOHEADER
	bmiColors As String * 128 ' Array length is arbitrary; may be changed
End Type


Statement:
Type BITMAPCOREINFO
	bmciHeader As BITMAPCOREHEADER
	bmciColors As String * 96 ' Array length is arbitrary; may be changed
End Type


Statement:
Type BITMAPFILEHEADER
	bfType As Integer
	bfSize As Long
	bfReserved1 As Integer
	bfReserved2 As Integer
	bfOffBits As Long
End Type


Statement:
Type HANDLETABLE
	objectHandle As String * 512 ' Array length is arbitrary; may be changed
End Type


Statement:
Type METARECORD
	rdSize As Long
	rdFunction As Integer
	rdParm As String * 512 ' Array length is arbitrary; may be changed
End Type


Statement:
Type METAFILEPICT
	mm As Integer
	xExt As Integer
	yExt As Integer
	hMF As Integer
End Type


Statement:
Type METAHEADER
	mtType As Integer
	mtHeaderSize As Integer
	mtVersion As Integer
	mtSize As Long
	mtNoObjects As Integer
	mtMaxRecord As Long
	mtNoParameters As Integer
End Type


Statement:
Type TEXTMETRIC
	tmHeight As Integer
	tmAscent As Integer
	tmDescent As Integer
	tmInternalLeading As Integer
	tmExternalLeading As Integer
	tmAveCharWidth As Integer
	tmMaxCharWidth As Integer
	tmWeight As Integer
	tmItalic As String * 1
	tmUnderlined As String * 1
	tmStruckOut As String * 1
	tmFirstChar As String * 1
	tmLastChar As String * 1
	tmDefaultChar As String * 1
	tmBreakChar As String * 1
	tmPitchAndFamily As String * 1
	tmCharSet As String * 1
	tmOverhang As Integer
	tmDigitizedAspectX As Integer
	tmDigitizedAspectY As Integer
End Type


Statement:
Type PELARRAY
	paXCount As Integer
	paYCount As Integer
	paXExt As Integer
	paYExt As Integer
	paRGBs As Integer
End Type


Statement:
Type LOGBRUSH
	lbStyle As Integer
	lbColor As Long
	lbHatch As Integer
End Type


Statement:
Type LOGPEN
	lopnStyle As Integer
	lopnWidth As POINTAPI
	lopnColor As Long
End Type


Statement:
Type PALETTEENTRY
	peRed As String * 1
	peGreen As String * 1
	peBlue As String * 1
	peFlags As String * 1
End Type


Statement:
Type LOGPALETTE
	palVersion As Integer
	palNumEntries As Integer
	palPalEntry As String * 252 ' Array length is arbitrary; may be changed
End Type


Statement:
Type LOGFONT
	lfHeight As Integer
	lfWidth As Integer
	lfEscapement As Integer
	lfOrientation As Integer
	lfWeight As Integer
	lfItalic As String * 1
	lfUnderline As String * 1
	lfStrikeOut As String * 1
	lfCharSet As String * 1
	lfOutPrecision As String * 1
	lfClipPrecision As String * 1
	lfQuality As String * 1
	lfPitchAndFamily As String * 1
	lfFaceName As String * LF_FACESIZE
End Type


Statement:
Public Const HS_HORIZONTAL = 0  '  -----


Statement:
Public Const HS_FDIAGONAL = 2   '  \\\\\


Statement:
Public Const HS_BDIAGONAL = 3   '  /////


Statement:
Public Const HS_CROSS = 4       '  +++++


Statement:
Public Const HS_DIAGCROSS = 5   '  xxxxx


Statement:
Public Const PS_DASH = 1        '  -------


Statement:
Public Const PS_DASHDOT = 3     '  _._._._


Statement:
Public Const PS_DASHDOTDOT = 4  '  _.._.._


Statement:
Public Const DRIVERVERSION = 0  '  Device driver version


Statement:
Public Const TECHNOLOGY = 2     '  Device classification


Statement:
Public Const HORZSIZE = 4       '  Horizontal size in millimeters


Statement:
Public Const VERTSIZE = 6       '  Vertical size in millimeters


Statement:
Public Const HORZRES = 8        '  Horizontal width in pixels


Statement:
Public Const VERTRES = 10       '  Vertical width in pixels


Statement:
Public Const BITSPIXEL = 12     '  Number of bits per pixel


Statement:
Public Const PLANES = 14        '  Number of planes


Statement:
Public Const NUMBRUSHES = 16    '  Number of brushes the device has


Statement:
Public Const NUMPENS = 18       '  Number of pens the device has


Statement:
Public Const NUMMARKERS = 20    '  Number of markers the device has


Statement:
Public Const NUMFONTS = 22      '  Number of fonts the device has


Statement:
Public Const NUMCOLORS = 24     '  Number of colors the device supports


Statement:
Public Const PDEVICESIZE = 26   '  Size required for device descriptor


Statement:
Public Const CURVECAPS = 28     '  Curve capabilities


Statement:
Public Const LINECAPS = 30      '  Line capabilities


Statement:
Public Const POLYGONALCAPS = 32 '  Polygonal capabilities


Statement:
Public Const TEXTCAPS = 34      '  Text capabilities


Statement:
Public Const CLIPCAPS = 36      '  Clipping capabilities


Statement:
Public Const RASTERCAPS = 38    '  Bitblt capabilities


Statement:
Public Const ASPECTX = 40       '  Length of the X leg


Statement:
Public Const ASPECTY = 42       '  Length of the Y leg


Statement:
Public Const ASPECTXY = 44      '  Length of the hypotenuse


Statement:
Public Const LOGPIXELSX = 88    '  Logical pixels/inch in X


Statement:
Public Const LOGPIXELSY = 90    '  Logical pixels/inch in Y


Statement:
Public Const SIZEPALETTE = 104  '  Number of entries in physical palette


Statement:
Public Const NUMRESERVED = 106  '  Number of reserved entries in palette


Statement:
Public Const COLORRES = 108     '  Actual color resolution


Statement:
Public Const DT_PLOTTER = 0     '  Vector plotter


Statement:
Public Const DT_RASDISPLAY = 1  '  Raster display


Statement:
Public Const DT_RASPRINTER = 2  '  Raster printer


Statement:
Public Const DT_RASCAMERA = 3   '  Raster camera


Statement:
Public Const DT_CHARSTREAM = 4  '  Character-stream, PLP


Statement:
Public Const DT_METAFILE = 5    '  Metafile, VDM


Statement:
Public Const DT_DISPFILE = 6    '  Display-file


Statement:
Public Const CC_NONE = 0        '  Curves not supported


Statement:
Public Const CC_CIRCLES = 1     '  Can do circles


Statement:
Public Const CC_PIE = 2 '  Can do pie wedges


Statement:
Public Const CC_CHORD = 4       '  Can do chord arcs


Statement:
Public Const CC_ELLIPSES = 8    '  Can do ellipese


Statement:
Public Const CC_WIDE = 16       '  Can do wide lines


Statement:
Public Const CC_STYLED = 32     '  Can do styled lines


Statement:
Public Const CC_WIDESTYLED = 64 '  Can do wide styled lines


Statement:
Public Const LC_NONE = 0        '  Lines not supported


Statement:
Public Const LC_POLYLINE = 2    '  Can do polylines


Statement:
Public Const LC_MARKER = 4      '  Can do markers


Statement:
Public Const LC_POLYMARKER = 8  '  Can do polymarkers


Statement:
Public Const LC_WIDE = 16       '  Can do wide lines


Statement:
Public Const LC_STYLED = 32     '  Can do styled lines


Statement:
Public Const LC_WIDESTYLED = 64 '  Can do wide styled lines


Statement:
Public Const PC_NONE = 0        '  Polygonals not supported


Statement:
Public Const PC_POLYGON = 1     '  Can do polygons


Statement:
Public Const PC_RECTANGLE = 2   '  Can do rectangles


Statement:
Public Const PC_WINDPOLYGON = 4 '  Can do winding polygons


Statement:
Public Const PC_TRAPEZOID = 4   '  Can do trapezoids


Statement:
Public Const PC_SCANLINE = 8    '  Can do scanlines


Statement:
Public Const PC_WIDE = 16       '  Can do wide borders


Statement:
Public Const PC_STYLED = 32     '  Can do styled borders


Statement:
Public Const PC_WIDESTYLED = 64 '  Can do wide styled borders


Statement:
Public Const CP_NONE = 0        '  No clipping of output


Statement:
Public Const CP_RECTANGLE = 1   '  Output clipped to rects


Statement:
Public Const TC_OP_CHARACTER = &H1      '  Can do OutputPrecision       CHARACTER


Statement:
Public Const TC_OP_STROKE = &H2 '  Can do OutputPrecision       STROKE


Statement:
Public Const TC_CP_STROKE = &H4 '  Can do ClipPrecision STROKE


Statement:
Public Const TC_CR_90 = &H8     '  Can do CharRotAbility        90


Statement:
Public Const TC_CR_ANY = &H10   '  Can do CharRotAbility        ANY


Statement:
Public Const TC_SF_X_YINDEP = &H20      '  Can do ScaleFreedom  X_YINDEPENDENT


Statement:
Public Const TC_SA_DOUBLE = &H40        '  Can do ScaleAbility  DOUBLE


Statement:
Public Const TC_SA_INTEGER = &H80       '  Can do ScaleAbility  INTEGER


Statement:
Public Const TC_SA_CONTIN = &H100       '  Can do ScaleAbility  CONTINUOUS


Statement:
Public Const TC_EA_DOUBLE = &H200       '  Can do EmboldenAbility       DOUBLE


Statement:
Public Const TC_IA_ABLE = &H400 '  Can do ItalisizeAbility      ABLE


Statement:
Public Const TC_UA_ABLE = &H800 '  Can do UnderlineAbility      ABLE


Statement:
Public Const TC_SO_ABLE = &H1000        '  Can do StrikeOutAbility      ABLE


Statement:
Public Const TC_RA_ABLE = &H2000        '  Can do RasterFontAble        ABLE


Statement:
Public Const TC_VA_ABLE = &H4000        '  Can do VectorFontAble        ABLE


Statement:
Public Const RC_BITBLT = 1      '  Can do standard BLT.


Statement:
Public Const RC_BANDING = 2     '  Device requires banding support


Statement:
Public Const RC_SCALING = 4     '  Device requires scaling support


Statement:
Public Const RC_BITMAP64 = 8    '  Device can support >64K bitmap


Statement:
Public Const RC_GDI20_OUTPUT = &H10     '  has 2.0 output calls


Statement:
Public Const RC_DI_BITMAP = &H80        '  supports DIB to memory


Statement:
Public Const RC_PALETTE = &H100 '  supports a palette


Statement:
Public Const RC_DIBTODEV = &H200        '  supports DIBitsToDevice


Statement:
Public Const RC_BIGFONT = &H400 '  supports >64K fonts


Statement:
Public Const RC_STRETCHBLT = &H800      '  supports StretchBlt


Statement:
Public Const RC_FLOODFILL = &H1000      '  supports FloodFill


Statement:
Public Const RC_STRETCHDIB = &H2000     '  supports StretchDIBits


Statement:
Public Const DIB_RGB_COLORS = 0 '  color table in RGBTriples


Statement:
Public Const CBM_INIT = &H4&    '  initialize bitmap


Statement:
Declare Function DrawText Lib "User" (ByVal hDC As Integer, ByVal lpStr As String, ByVal nCount As Integer, lpRect As RECT, ByVal wFormat As Integer) As Integer


Statement:
Declare Function DrawIcon Lib "User" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal hIcon As Integer) As Integer


Statement:
Declare Function GetWindowDC Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function GetDC Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function ReleaseDC Lib "User" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer


Statement:
Declare Function CreateDC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer


Statement:
Declare Function CreateIC Lib "GDI" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, ByVal lpInitData As String) As Integer


Statement:
Declare Function CreateCompatibleDC Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function DeleteDC Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SaveDC Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function RestoreDC Lib "GDI" (ByVal hDC As Integer, ByVal nSavedDC As Integer) As Integer


Statement:
Declare Function MoveTo Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetCurrentPosition Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function LineTo Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer


Statement:
Declare Function GetDCOrg Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function MulDiv Lib "GDI" (ByVal nNumber As Integer, ByVal nNumerator As Integer, ByVal nDenominator As Integer) As Integer


Statement:
Declare Function ExtTextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal wOptions As Integer, lpRect As Any, ByVal lpString As String, ByVal nCount As Integer, lpDx As Any) As Integer


Statement:
Declare Function Polyline Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer


Statement:
Declare Function Polygon Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer


Statement:
Declare Function PolyPolygon Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, lpPolyCounts As Integer, ByVal nCount As Integer) As Integer


Statement:
Declare Function Rectangle Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer


Statement:
Declare Function RoundRect Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer


Statement:
Declare Function Ellipse Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer


Statement:
Declare Function Arc Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Integer


Statement:
Declare Function Chord Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Integer


Statement:
Declare Function Pie Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer, ByVal X4 As Integer, ByVal Y4 As Integer) As Integer


Statement:
Declare Function PatBlt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal dwRop As Long) As Integer


Statement:
Declare Function BitBlt Lib "GDI" (ByVal hDestDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hSrcDC As Integer, ByVal XSrc As Integer, ByVal YSrc As Integer, ByVal dwRop As Long) As Integer


Statement:
Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)


Statement:
Declare Function TextOut Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer) As Integer


Statement:
Declare Function TabbedTextOut Lib "User" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal lpString As String, ByVal nCount As Integer, ByVal nTabPositions As Integer, lpnTabStopPositions As Integer,ByVal nTabOrigin As Integer) As Long


Statement:
Declare Function GetCharWidth Lib "GDI" (ByVal hDC As Integer, ByVal wFirstChar As Integer, ByVal wLastChar As Integer, lpBuffer As Integer) As Integer


Statement:
Declare Function SetPixel Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Long


Statement:
Declare Function GetPixel Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function FloodFill Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long) As Integer


Statement:
Declare Function ExtFloodFill Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal crColor As Long, ByVal wFillType As Integer) As Integer


Statement:
Declare Function GetStockObject Lib "GDI" (ByVal nIndex As Integer) As Integer


Statement:
Declare Function CreatePen Lib "GDI" (ByVal nPenStyle As Integer, ByVal nWidth As Integer, ByVal crColor As Long) As Integer


Statement:
Declare Function CreatePenIndirect Lib "GDI" (lpLogPen As LOGPEN) As Integer


Statement:
Declare Function CreateSolidBrush Lib "GDI" (ByVal crColor As Long) As Integer


Statement:
Declare Function CreateHatchBrush Lib "GDI" (ByVal nIndex As Integer, ByVal crColor As Long) As Integer


Statement:
Declare Function SetBrushOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetBrushOrg Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function CreatePatternBrush Lib "GDI" (ByVal hBitmap As Integer) As Integer


Statement:
Declare Function CreateBrushIndirect Lib "GDI" (lpLogBrush As LOGBRUSH) As Integer


Statement:
Declare Function CreateBitmap Lib "GDI" (ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal nPlanes As Integer, ByVal nBitCount As Integer, ByVal lpBits As Any) As Integer


Statement:
Declare Function CreateBitmapIndirect Lib "GDI" (lpBitmap As BITMAP) As Integer


Statement:
Declare Function CreateCompatibleBitmap Lib "GDI" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer


Statement:
Declare Function CreateDiscardableBitmap Lib "GDI" (ByVal hDC As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer


Statement:
Declare Function SetBitmapBits Lib "GDI" (ByVal hBitmap As Integer, ByVal dwCount As Long, ByVal lpBits As Any) As Long


Statement:
Declare Function GetBitmapBits Lib "GDI" (ByVal hBitmap As Integer, ByVal dwCount As Long, ByVal lpBits As Any) As Long


Statement:
Declare Function SetBitmapDimension Lib "GDI" (ByVal hBitmap As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetBitmapDimension Lib "GDI" (ByVal hBitmap As Integer) As Long


Statement:
Declare Function CreateFont% Lib "GDI" (ByVal H%, ByVal W%, ByVal E%, ByVal O%, ByVal W%, ByVal I%, ByVal U%, ByVal S%, ByVal C%, ByVal OP%, ByVal CP%, ByVal Q%, ByVal PAF%, ByVal F$)


Statement:
Declare Function CreateFontIndirect Lib "GDI" (lpLogFont As LOGFONT) As Integer


Statement:
Declare Function SelectClipRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer


Statement:
Declare Function CreateRectRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer


Statement:
Declare Sub SetRectRgn Lib "GDI" (ByVal hRgn As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)


Statement:
Declare Function CreateRectRgnIndirect Lib "GDI" (lpRect As RECT) As Integer


Statement:
Declare Function CreateEllipticRgnIndirect Lib "GDI" (lpRect As RECT) As Integer


Statement:
Declare Function CreateEllipticRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer


Statement:
Declare Function CreatePolygonRgn Lib "GDI" (lpPoints As POINTAPI, ByVal nCount As Integer, ByVal nPolyFillMode As Integer) As Integer


Statement:
Declare Function CreatePolyPolygonRgn Lib "GDI" (lpPoints As POINTAPI, lpPolyCounts As Integer, ByVal nCount As Integer, ByVal nPolyFillMode As Integer) As Integer


Statement:
Declare Function CreateRoundRectRgn Lib "GDI" (ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal X3 As Integer, ByVal Y3 As Integer) As Integer


Statement:
Declare Function GetObjectGDI Lib "GDI" Alias "GetObject" (ByVal hObject As Integer, ByVal nCount As Integer, ByVal lpObject As Long) As Integer


Statement:
Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer


Statement:
Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer


Statement:
Declare Function UnrealizeObject Lib "GDI" (ByVal hObject As Integer) As Integer


Statement:
Declare Function SetBkColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long


Statement:
Declare Function GetBkColor Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function SetBkMode Lib "GDI" (ByVal hDC As Integer, ByVal nBkMode As Integer) As Integer


Statement:
Declare Function GetBkMode Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetTextColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long


Statement:
Declare Function GetTextColor Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function SetTextAlign Lib "GDI" (ByVal hDC As Integer, ByVal wFlags As Integer) As Integer


Statement:
Declare Function GetTextAlign Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetMapperFlags Lib "GDI" (ByVal hDC As Integer, ByVal dwFlag As Long) As Long


Statement:
Declare Function GetAspectRatioFilter Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function GetNearestColor Lib "GDI" (ByVal hDC As Integer, ByVal crColor As Long) As Long


Statement:
Declare Function SetROP2 Lib "GDI" (ByVal hDC As Integer, ByVal nDrawMode As Integer) As Integer


Statement:
Declare Function GetROP2 Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetStretchBltMode Lib "GDI" (ByVal hDC As Integer, ByVal nStretchMode As Integer) As Integer


Statement:
Declare Function GetStretchBltMode Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetPolyFillMode Lib "GDI" (ByVal hDC As Integer, ByVal nPolyFillMode As Integer) As Integer


Statement:
Declare Function GetPolyFillMode Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetMapMode Lib "GDI" (ByVal hDC As Integer, ByVal nMapMode As Integer) As Integer


Statement:
Declare Function GetMapMode Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetWindowOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetWindowOrg Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function SetWindowExt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetWindowExt Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function SetViewportOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetViewportOrg Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function SetViewportExt Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function GetViewportExt Lib "GDI" (ByVal hDC As Integer) As Long


Statement:
Declare Function OffsetViewportOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function ScaleViewportExt Lib "GDI" (ByVal hDC As Integer, ByVal Xnum As Integer, ByVal Xdenom As Integer, ByVal Ynum As Integer, ByVal Ydenom As Integer) As Long


Statement:
Declare Function OffsetWindowOrg Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Long


Statement:
Declare Function ScaleWindowExt Lib "GDI" (ByVal hDC As Integer, ByVal Xnum As Integer, ByVal Xdenom As Integer, ByVal Ynum As Integer, ByVal Ydenom As Integer) As Long


Statement:
Declare Function GetClipBox Lib "GDI" (ByVal hDC As Integer, lpRect As RECT) As Integer


Statement:
Declare Function IntersectClipRect Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer


Statement:
Declare Function OffsetClipRgn Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer


Statement:
Declare Function ExcludeClipRect Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer


Statement:
Declare Function PtVisible Lib "GDI" (ByVal hDC As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer


Statement:
Declare Function CombineRgn Lib "GDI" (ByVal hDestRgn As Integer, ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer, ByVal nCombineMode As Integer) As Integer


Statement:
Declare Function EqualRgn Lib "GDI" (ByVal hSrcRgn1 As Integer, ByVal hSrcRgn2 As Integer) As Integer


Statement:
Declare Function OffsetRgn Lib "GDI" (ByVal hRgn As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer


Statement:
Declare Function GetRgnBox Lib "GDI" (ByVal hRgn As Integer, lpRect As RECT) As Integer


Statement:
Declare Function SetTextJustification Lib "GDI" (ByVal hDC As Integer, ByVal nBreakExtra As Integer, ByVal nBreakCount As Integer) As Integer


Statement:
Declare Function GetTextExtent Lib "GDI" (ByVal hDC As Integer, ByVal lpString As String, ByVal nCount As Integer) As Long


Statement:
Declare Function GetTabbedTextExtent Lib "GDI" (ByVal hDC As Integer, ByVal lpString As String, ByVal nCount As Integer, ByVal nTabPositions As Integer, lpnTabStopPositions As Integer) As Long


Statement:
Declare Function SetTextCharacterExtra Lib "GDI" (ByVal hDC As Integer, ByVal nCharExtra As Integer) As Integer


Statement:
Declare Function GetTextCharacterExtra Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function GetMetaFile Lib "GDI" (ByVal lpFilename As String) As Integer


Statement:
Declare Function DeleteMetaFile Lib "GDI" (ByVal hMF As Integer) As Integer


Statement:
Declare Function CopyMetaFile Lib "GDI" (ByVal hMF As Integer, ByVal lpFilename As String) As Integer


Statement:
Declare Function PlayMetaFile Lib "GDI" (ByVal hDC As Integer, ByVal hMF As Integer) As Integer


Statement:
Declare Sub PlayMetaFileRecord Lib "GDI" (ByVal hDC As Integer, lpHandletable As Integer, lpMetaRecord As METARECORD, ByVal nHandles As Integer)


Statement:
Declare Function Escape Lib "GDI" (ByVal hDC As Integer, ByVal nEscape As Integer, ByVal nCount As Integer, ByVal lplnData As Any, ByVal lpOutData As Any) As Integer


Statement:
Declare Function GetTextFace Lib "GDI" (ByVal hDC As Integer, ByVal nCount As Integer, ByVal lpFacename As String) As Integer


Statement:
Declare Function GetTextMetrics Lib "GDI" (ByVal hDC As Integer, lpMetrics As TEXTMETRIC) As Integer


Statement:
Declare Function GetDeviceCaps Lib "GDI" (ByVal hDC As Integer, ByVal nIndex As Integer) As Integer


Statement:
Declare Function SetEnvironment Lib "GDI" (ByVal lpPortName As String, ByVal lpEnviron As String, ByVal nCount As Integer) As Integer


Statement:
Declare Function GetEnvironment Lib "GDI" (ByVal lpPortName As String, lpEnviron As Any, ByVal nMaxCount As Integer) As Integer


Statement:
Declare Function DPtoLP Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer


Statement:
Declare Function LPtoDP Lib "GDI" (ByVal hDC As Integer, lpPoints As POINTAPI, ByVal nCount As Integer) As Integer


Statement:
Declare Function CreateMetaFile Lib "GDI" (lpString As Any) As Integer


Statement:
Declare Function CloseMetaFile Lib "GDI" (ByVal hMF As Integer) As Integer


Statement:
Declare Function GetMetaFileBits Lib "GDI" (ByVal hMF As Integer) As Integer


Statement:
Declare Function SetMetaFileBits Lib "GDI" (ByVal hMem As Integer) As Integer


Statement:
Declare Function SetDIBits Lib "GDI" (ByVal aHDC As Integer, ByVal hBitmap As Integer, ByVal nStartScan As Integer, ByVal nNumScans As Integer, ByVal lpBits As String, lpBI As BITMAPINFO, ByVal wUsage As Integer) As Integer


Statement:
Declare Function GetDIBits Lib "GDI" (ByVal aHDC As Integer, ByVal hBitmap As Integer, ByVal nStartScan As Integer, ByVal nNumScans As Integer, ByVal lpBits As String, lpBI As BITMAPINFO, ByVal wUsage As Integer) As Integer


Statement:
Declare Function SetDIBitsToDevice% Lib "GDI" (ByVal hDC#, ByVal X#, ByVal Y#, ByVal dX#, ByVal dY#, ByVal SrcX#, ByVal SrcY#, ByVal Scan#, ByVal NumScans#, ByVal Bits As String, BitsInfo As BITMAPINFO, ByVal wUsage#)


Statement:
Declare Function CreateDIBitmap Lib "GDI" (ByVal hDC As Integer, lpInfoHeader As BITMAPINFOHEADER, ByVal dwUsage As Long, ByVal lpInitBits As String, lpInitInfo As BITMAPINFO, ByVal wUsage As Integer) As Integer


Statement:
Declare Function CreateDIBPatternBrush Lib "GDI" (ByVal hPackedDIB As Integer, ByVal wUsage As Integer) As Integer


Statement:
Declare Function StretchDIBits# Lib "GDI" (ByVal hDC#, ByVal X#, ByVal Y#, ByVal dX#, ByVal dY#, ByVal SrcX#, ByVal SrcY#, ByVal wSrcWidth#, ByVal wSrcHeight#, ByVal lpBits As String, lpBitsInfo As BITMAPINFO, ByVal wUsage#, ByVal dwRop&)


Statement:
Declare Function CreatePalette Lib "GDI" (lpLogPalette As LOGPALETTE) As Integer


Statement:
Declare Function SelectPalette Lib "User" (ByVal hDC As Integer, ByVal hPalette as Integer, ByVal bForceBackground as Integer) As Integer


Statement:
Declare Function RealizePalette Lib "User" (ByVal hDC As Integer) As Integer


Statement:
Declare Function UpdateColors Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Sub AnimatePalette Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteColors As PALETTEENTRY)


Statement:
Declare Function SetPaletteEntries Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer


Statement:
Declare Function GetPaletteEntries Lib "GDI" (ByVal hPalette As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer


Statement:
Declare Function GetNearestPaletteIndex Lib "GDI" (ByVal hPalette As Integer, ByVal crColor As Long) As Integer


Statement:
Declare Function ResizePalette Lib "GDI" (ByVal hPalette As Integer, ByVal nNumEntries As Integer) As Integer


Statement:
Declare Function GetSystemPaletteEntries Lib "GDI" (ByVal hDC As Integer, ByVal wStartIndex As Integer, ByVal wNumEntries As Integer, lpPaletteEntries As PALETTEENTRY) As Integer


Statement:
Declare Function GetSystemPaletteUse Lib "GDI" (ByVal hDC As Integer) As Integer


Statement:
Declare Function SetSystemPaletteUse Lib "GDI" (ByVal hDC As Integer, ByVal wUsage As Integer) As Integer


Statement:
Declare Function wvsprintf Lib "User" (ByVal lpOutput As String, ByVal lpFormat As String, lpArglist As Integer) As Integer


Statement:
Public Const VK_MBUTTON = &H4   '  NOT contiguous with L & RBUTTON


Statement:
Type EVENTMSG
	message As Integer
	paramL As Integer
	paramH As Integer
	time As Long
End Type


Statement:
Type MSG
	hWnd As Integer
	message As Integer
	wParam As Integer
	lParam As Long
	time As Long
	pt As POINTAPI
End Type


Statement:
Declare Function RegisterWindowMessage Lib "User" (ByVal lpString As String) As Integer


Statement:
Public Const WS_CLIPSIBLINGS = &H4000000&


Statement:
Public Const WS_CLIPCHILDREN = &H2000000&


Statement:
Public Const WS_CAPTION = &HC00000&     '  WS_BORDER Or WS_DLGFRAME


Statement:
Public Const WS_TILEDWINDOW = (WS_OVERLAPPEDWINDOW)


Statement:
Public Const WS_EX_DLGMODALFRAME = &H00001&


Statement:
Public Const WS_EX_NOPARENTNOTIFY = &H00004&


Statement:
Public Const CS_GLOBALCLASS = &H4000    '  Global window class


Statement:
Type PAINTSTRUCT
	hdc As Integer
	fErase As Integer
	rcPaint As RECT
	fRestore As Integer
	fIncUpdate As Integer
	rgbReserved As String * 16
End Type


Statement:
Type CREATESTRUCT
	lpCreateParams As Long
	hInstance As Integer
	hMenu As Integer
	hWndParent As Integer
	cy As Integer
	cx As Integer
	y As Integer
	x As Integer
	style As Long
	lpszName As Long
	lpszClass As Long
	ExStyle As Long
End Type


Statement:
Type MEASUREITEMSTRUCT
	CtlType As Integer
	CtlID As Integer
	itemID As Integer
	itemWidth As Integer
	itemHeight As Integer
	itemData As Long
End Type


Statement:
Type DRAWITEMSTRUCT
	CtlType As Integer
	CtlID As Integer
	itemID As Integer
	itemAction As Integer
	itemState As Integer
	hWndItem As Integer
	hDC As Integer
	rcItem As RECT
	itemData As Long
End Type


Statement:
Type DELETEITEMSTRUCT
	CtlType As Integer
	CtlID As Integer
	itemID As Integer
	hWndItem As Integer
	itemData As Long
End Type


Statement:
Type COMPAREITEMSTRUCT
	CtlType As Integer
	CtlID As Integer
	hWndItem As Integer
	itemID1 As Integer
	itemData1 As Long
	itemID2 As Integer
	itemData2 As Long
End Type


Statement:
Declare Function GetMessage Lib "User" (lpMsg As MSG, ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer) As Integer


Statement:
Declare Function TranslateMessage Lib "User" (lpMsg As MSG) As Integer


Statement:
Declare Function DispatchMessage Lib "User" (lpMsg As MSG) As Long


Statement:
Declare Function PeekMessage Lib "User" (lpMsg As MSG, ByVal hWnd As Integer, ByVal wMsgFilterMin As Integer, ByVal wMsgFilterMax As Integer, ByVal wRemoveMsg As Integer) As Integer


Statement:
Declare Function lstrcmp Lib "User" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Integer


Statement:
Declare Function lstrcmpi Lib "User" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Integer


Statement:
Declare Function lstrcpy Lib "Kernel" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long


Statement:
Declare Function lstrcat Lib "Kernel" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long


Statement:
Declare Function lstrlen Lib "Kernel" (ByVal lpString As Any) As Integer


Statement:
Declare Function lopen Lib "Kernel" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Integer) As Integer


Statement:
Declare Function lclose Lib "Kernel" Alias "_lclose" (ByVal hFile As Integer) As Integer


Statement:
Declare Function lcreat Lib "Kernel" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Integer) As Integer


Statement:
Declare Function llseek Lib "Kernel" Alias "_llseek" (ByVal hFile As Integer, ByVal lOffset As Long, ByVal iOrigin As Integer) As Long


Statement:
Declare Function lread Lib "Kernel" Alias "_lread" (ByVal hFile As Integer, ByVal lpBuffer As String, ByVal wBytes As Integer) As Integer


Statement:
Declare Function lwrite Lib "Kernel" Alias "_lwrite" (ByVal hFile As Integer, ByVal lpBuffer As String, ByVal wBytes As Integer) As Integer


Statement:
Declare Function ExitWindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer


Statement:
Declare Function SwapMouseButton Lib "User" (ByVal bSwap As Integer) As Integer


Statement:
Declare Function GetMessagePos Lib "User" () As Long


Statement:
Declare Function GetMessageTime Lib "User" () As Long


Statement:
Declare Function GetSysModalWindow Lib "User" () As Integer


Statement:
Declare Function SetSysModalWindow Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long


Statement:
Declare Function PostMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer


Statement:
Declare Function PostAppMessage Lib "User" (ByVal hTask As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Integer


Statement:
Declare Sub ReplyMessage Lib "User" (ByVal lReply As Long)


Statement:
Declare Function DefWindowProc Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long


Statement:
Declare Sub PostQuitMessage Lib "User" (ByVal nExitCode As Integer)


Statement:
Declare Function InSendMessage Lib "User" () As Integer


Statement:
Declare Function GetDoubleClickTime Lib "User" () As Integer


Statement:
Declare Sub SetDoubleClickTime Lib "User" (ByVal wCount As Integer)


Statement:
Declare Function UnregisterClass Lib "User" (ByVal lpClassName As String, ByVal hInstance As Integer) As Integer


Statement:
Declare Function SetMessageQueue Lib "User" (ByVal cMsg As Integer) As Integer


Statement:
Declare Function CreateWindow% Lib "User" (ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hWndParent%, ByVal hMenu%, ByVal hInstance%, ByVal lpParam$)


Statement:
Declare Function CreateWindowEx% Lib "User" (ByVal dwExStyle&, ByVal lpClassName$, ByVal lpWindowName$, ByVal dwStyle&, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hWndParent%, ByVal hMenu%, ByVal hInstance%, ByVal lpParam$)


Statement:
Declare Function IsWindow Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function IsChild Lib "User" (ByVal hWndParent As Integer, ByVal hWnd As Integer) As Integer


Statement:
Declare Function DestroyWindow Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer


Statement:
Declare Function FlashWindow Lib "User" (ByVal hWnd As Integer, ByVal bInvert As Integer) As Integer


Statement:
Declare Sub ShowOwnedPopups Lib "User" (ByVal hWnd As Integer, ByVal fShow As Integer)


Statement:
Declare Function OpenIcon Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Sub CloseWindow Lib "User" (ByVal hWnd As Integer)


Statement:
Declare Sub MoveWindow Lib "User" (ByVal hWnd As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal bRepaint As Integer)


Statement:
Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)


Statement:
Declare Function BeginDeferWindowPos Lib "User" (ByVal nNumWindows As Integer) As Integer


Statement:
Declare Function DeferWindowPos Lib "User" (ByVal hWinPosInfo As Integer, ByVal hWnd as Integer, ByVal hWndInsertAfter as Integer, ByVal x, ByVal y, ByVal cx, ByVal cy, ByVal wFlags as Integer) As Integer


Statement:
Declare Sub EndDeferWindowPos Lib "User" (ByVal hWinPosInfo As Integer)


Statement:
Declare Function IsWindowVisible Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function IsIconic Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function AnyPopup Lib "User" () As Integer


Statement:
Declare Sub BringWindowToTop Lib "User" (ByVal hWnd As Integer)


Statement:
Declare Function IsZoomed Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Sub EndDialog Lib "User" (ByVal hDlg As Integer, ByVal nResult As Integer)


Statement:
Declare Function GetDlgItem Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer) As Integer


Statement:
Declare Sub SetDlgItemInt Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal wValue As Integer, ByVal bSigned As Integer)


Statement:
Declare Function GetDlgItemInt Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, lpTranslated As Integer, ByVal bSigned As Integer) As Integer


Statement:
Declare Sub SetDlgItemText Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal lpString As String)


Statement:
Declare Function GetDlgItemText Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer


Statement:
Declare Sub CheckDlgButton Lib "User" (ByVal hDlg As Integer, ByVal nIDButton As Integer, ByVal wCheck As Integer)


Statement:
Declare Sub CheckRadioButton Lib "User" (ByVal hDlg As Integer, ByVal nIDFirstButton As Integer, ByVal nIDLastButton As Integer, ByVal nIDCheckButton As Integer)


Statement:
Declare Function IsDlgButtonChecked Lib "User" (ByVal hDlg As Integer, ByVal nIDButton As Integer) As Integer


Statement:
Declare Function SendDlgItemMessage Lib "User" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long


Statement:
Declare Function GetNextDlgGroupItem Lib "User" (ByVal hDlg As Integer, ByVal hCtl As Integer, ByVal bPrevious As Integer) As Integer


Statement:
Declare Function GetNextDlgTabItem Lib "User" (ByVal hDlg As Integer, ByVal hCtl As Integer, ByVal bPrevious As Integer) As Integer


Statement:
Declare Function GetDlgCtrlID Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function GetDialogBaseUnits Lib "User" () As Long


Statement:
Declare Function DefDlgProc Lib "User" (ByVal hDlg As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long


Statement:
Declare Function CallMsgFilter Lib "User" (lpMsg As MSG, ByVal nCode As Integer) As Integer


Statement:
Declare Function OpenClipboard Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function CloseClipboard Lib "User" () As Integer


Statement:
Declare Function GetClipboardOwner Lib "User" () As Integer


Statement:
Declare Function SetClipboardViewer Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function GetClipboardViewer Lib "User" () As Integer


Statement:
Declare Function ChangeClipboardChain Lib "User" (ByVal hWnd As Integer, ByVal hWndNext As Integer) As Integer


Statement:
Declare Function SetClipboardData Lib "User" (ByVal wFormat As Integer, ByVal hMem As Integer) As Integer


Statement:
Declare Function GetClipboardData Lib "User" (ByVal wFormat As Integer) As Integer


Statement:
Declare Function RegisterClipboardFormat Lib "User" (ByVal lpString As String) As Integer


Statement:
Declare Function CountClipboardFormats Lib "User" () As Integer


Statement:
Declare Function EnumClipboardFormats Lib "User" (ByVal wFormat As Integer) As Integer


Statement:
Declare Function GetClipboardFormatName Lib "User" (ByVal wFormat As Integer, ByVal lpString As String, ByVal nMaxCount As Integer) As Integer


Statement:
Declare Function EmptyClipboard Lib "User" () As Integer


Statement:
Declare Function IsClipboardFormatAvailable Lib "User" (ByVal wFormat As Integer) As Integer


Statement:
Declare Function GetPriorityClipboardFormat Lib "User" (lpPriorityList As Integer, ByVal nCount As Integer) As Integer


Statement:
Declare Function SetFocusAPI Lib "User" Alias "SetFocus" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function GetFocus Lib "User" () As Integer


Statement:
Declare Function GetActiveWindow Lib "User" () As Integer


Statement:
Declare Function GetKeyState Lib "User" (ByVal nVirtKey As Integer) As Integer


Statement:
Declare Function GetAsyncKeyState Lib "User" (ByVal vKey As Integer) As Integer


Statement:
Declare Sub GetKeyboardState Lib "User" (LpKeyState As Any)


Statement:
Declare Sub SetKeyboardState Lib "User" (lpKeyState As Any)


Statement:
Declare Function EnableHardwareInput Lib "User" (ByVal bEnableInput As Integer) As Integer


Statement:
Declare Function GetInputState Lib "User" () As Integer


Statement:
Declare Function GetCapture Lib "User" () As Integer


Statement:
Declare Function SetCapture Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Sub ReleaseCapture Lib "User" ()


Statement:
Declare Function KillTimer Lib "User" (ByVal hWnd As Integer, ByVal nIDEvent As Integer) As Integer


Statement:
Declare Function EnableWindow Lib "User" (ByVal hWnd As Integer, ByVal aBOOL As Integer) As Integer


Statement:
Declare Function IsWindowEnabled Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function LoadAccelerators Lib "User" (ByVal hInstance As Integer, ByVal lpTableName As String) As Integer


Statement:
Declare Function TranslateAccelerator Lib "User" (ByVal hWnd As Integer, ByVal hAccTable As Integer, lpMsg As MSG) As Integer


Statement:
Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) As Integer


Statement:
Declare Function LoadMenu Lib "User" (ByVal hInstance As Integer, ByVal lpString As String) As Integer


Statement:
Declare Function LoadMenuIndirect Lib "User" (lpMenuTemplate As Any) As Integer


Statement:
Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function SetMenu Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer) As Integer


Statement:
Declare Function ChangeMenu Lib "User" (ByVal hMenu As Integer, ByVal wID As Integer, ByVal lpszNew As String, ByVal wIDNew As Integer, ByVal wChange As Integer) As Integer


Statement:
Declare Function HiliteMenuItem Lib "User" (ByVal hWnd As Integer, ByVal hMenu As Integer, ByVal wIDHiliteItem As Integer, ByVal wHilite As Integer) As Integer


Statement:
Declare Function GetMenuString Lib "User" (ByVal hMenu As Integer, ByVal wIDItem As Integer, ByVal lpString As String, ByVal nMaxCount As Integer, ByVal wFlag As Integer) As Integer


Statement:
Declare Function GetMenuState Lib "User" (ByVal hMenu As Integer, ByVal wId As Integer, ByVal wFlags As Integer) As Integer


Statement:
Declare Sub DrawMenuBar Lib "User" (ByVal hWnd As Integer)


Statement:
Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer


Statement:
Declare Function CreateMenu Lib "User" () As Integer


Statement:
Declare Function CreatePopupMenu Lib "User" () As Integer


Statement:
Declare Function DestroyMenu Lib "User" (ByVal hMenu As Integer) As Integer


Statement:
Declare Function CheckMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDCheckItem As Integer, ByVal wCheck As Integer) As Integer


Statement:
Declare Function EnableMenuItem Lib "User" (ByVal hMenu As Integer, ByVal wIDEnableItem As Integer, ByVal wEnable As Integer) As Integer


Statement:
Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer


Statement:
Declare Function GetMenuItemID Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer


Statement:
Declare Function GetMenuItemCount Lib "User" (ByVal hMenu As Integer) As Integer


Statement:
Declare Function InsertMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer


Statement:
Declare Function AppendMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer


Statement:
Declare Function ModifyMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpString As Any) As Integer


Statement:
Declare Function RemoveMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer


Statement:
Declare Function DeleteMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer


Statement:
Declare Function SetMenuItemBitmaps Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal hBitmapUnchecked As Integer, ByVal hBitmapChecked As Integer) As Integer


Statement:
Declare Function GetMenuCheckMarkDimensions Lib "User" () As Long


Statement:
Declare Function TrackPopupMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nReserved As Integer, ByVal hWnd As Integer, lpReserved As Any) As Integer


Statement:
Declare Sub UpdateWindow Lib "GDI" (ByVal hWnd As Integer)


Statement:
Declare Function SetActiveWindow Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function BeginPaint Lib "GDI" (ByVal hWnd As Integer, lpPaint As PAINTSTRUCT) As Integer


Statement:
Declare Sub EndPaint Lib "GDI" (ByVal hWnd As Integer, lpPaint As PAINTSTRUCT)


Statement:
Declare Function GetUpdateRect Lib "GDI" (ByVal hWnd As Integer, lpRect As RECT, ByVal bErase As Integer) As Integer


Statement:
Declare Function GetUpdateRgn Lib "GDI" (ByVal hWnd As Integer, ByVal hRgn As Integer, ByVal fErase As Integer) As Integer


Statement:
Declare Function ExcludeUpdateRgn Lib "GDI" (ByVal hDC As Integer, ByVal hWnd As Integer) As Integer


Statement:
Declare Sub InvalidateRect Lib "User" (ByVal hWnd As Integer, lpRect As RECT, ByVal bErase As Integer)


Statement:
Declare Sub ValidateRect Lib "GDI" (ByVal hWnd As Integer, lpRect As RECT)


Statement:
Declare Sub InvalidateRgn Lib "GDI" (ByVal hWnd As Integer, ByVal hRgn As Integer, ByVal bErase As Integer)


Statement:
Declare Sub ValidateRgn Lib "GDI" (ByVal hWnd As Integer, ByVal hRgn As Integer)


Statement:
Declare Sub ScrollWindow Lib "User" (ByVal hWnd As Integer, ByVal XAmount As Integer, ByVal YAmount As Integer, lpRect As RECT, lpClipRect As RECT)


Statement:
Declare Function ScrollDC Lib "User" (ByVal hDC As Integer, ByVal dx As Integer, ByVal dy As Integer, lprcScroll As RECT, lprcClip As RECT, ByVal hRgnUpdate As Integer, lprcUpdate As RECT) As Integer


Statement:
Declare Function SetScrollPos Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer, ByVal nPos As Integer, ByVal bRedraw As Integer) As Integer


Statement:
Declare Function GetScrollPos Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer) As Integer


Statement:
Declare Sub SetScrollRange Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer, ByVal nMinPos As Integer, ByVal nMaxPos As Integer, ByVal bRedraw As Integer)


Statement:
Declare Sub GetScrollRange Lib "User" (ByVal hWnd As Integer, ByVal nBar As Integer, lpMinPos As Integer, lpMaxPos As Integer)


Statement:
Declare Sub ShowScrollBar Lib "User" (ByVal hWnd As Integer, ByVal wBar As Integer, ByVal bShow As Integer)


Statement:
Declare Function SetProp Lib "User" (ByVal hWnd As Integer, ByVal lpString As String, ByVal hData As Integer) As Integer


Statement:
Declare Function GetProp Lib "User" (ByVal hWnd As Integer, ByVal lpString As Any) As Integer


Statement:
Declare Function RemoveProp Lib "User" (ByVal hWnd As Integer, ByVal lpString As String) As Integer


Statement:
Declare Sub SetWindowText Lib "User" (ByVal hWnd As Integer, ByVal lpString As String)


Statement:
Declare Function GetWindowText Lib "User" (ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As Integer) As Integer


Statement:
Declare Function GetWindowTextLength Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Sub GetClientRect Lib "GDI" (ByVal hWnd As Integer, lpRect As RECT)


Statement:
Declare Sub GetWindowRect Lib "GDI" (ByVal hWnd As Integer, lpRect As RECT)


Statement:
Declare Sub AdjustWindowRect Lib "GDI" (lpRect As RECT, ByVal dwStyle As Long, ByVal bMenu As Integer)


Statement:
Declare Sub AdjustWindowRectEx Lib "GDI" (lpRect As RECT, ByVal dsStyle As Long, ByVal bMenu As Integer, ByVal dwEsStyle As Long)


Statement:
Declare Function MessageBox Lib "User" (ByVal hWnd As Integer, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Integer) As Integer


Statement:
Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)


Statement:
Declare Function ShowCursor Lib "User" (ByVal bShow As Integer) As Integer


Statement:
Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)


Statement:
Declare Function SetCursor Lib "User" (ByVal hCursor As Integer) As Integer


Statement:
Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)


Statement:
Declare Sub ClipCursor Lib "User" (lpRect As Any)


Statement:
Declare Sub CreateCaret Lib "User" (ByVal hWnd As Integer, ByVal hBitmap As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer)


Statement:
Declare Function GetCaretBlinkTime Lib "User" () As Integer


Statement:
Declare Sub SetCaretBlinkTime Lib "User" (ByVal wMSeconds As Integer)


Statement:
Declare Sub HideCaret Lib "User" (ByVal hWnd As Integer)


Statement:
Declare Sub ShowCaret Lib "User" (ByVal hWnd As Integer)


Statement:
Declare Sub SetCaretPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)


Statement:
Declare Sub GetCaretPos Lib "User" (lpPoint As POINTAPI)


Statement:
Declare Sub ClientToScreen Lib "User" (ByVal hWnd As Integer, lpPoint As POINTAPI)


Statement:
Declare Sub ScreenToClient Lib "User" (ByVal hWnd As Integer, lpPoint As POINTAPI)


Statement:
Declare Function WindowFromPoint Lib "User" (ByVal yPoint as Integer, ByVal xPoint as Integer) As Integer


Statement:
Declare Function ChildWindowFromPoint Lib "User" (ByVal hWnd As Integer, ByVal ptScreen As Any) As Integer


Statement:
Public Const COLOR_ENDCOLORS = COLOR_BTNTEXT


Statement:
Declare Function GetSysColor Lib "User" (ByVal nIndex As Integer) As Long


Statement:
Declare Sub SetSysColors Lib "User" (ByVal nChanges As Integer, lpSysColor As Integer, lpColorValues As Long)


Statement:
Declare Function FillRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer) As Integer


Statement:
Declare Function FrameRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer, ByVal hBrush As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer) As Integer


Statement:
Declare Function InvertRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer


Statement:
Declare Function PaintRgn Lib "GDI" (ByVal hDC As Integer, ByVal hRgn As Integer) As Integer


Statement:
Declare Function PtInRegion Lib "GDI" (ByVal hRgn As Integer, ByVal X As Integer, ByVal Y As Integer) As Integer


Statement:
Declare Sub DrawFocusRect Lib "GDI" (ByVal hDC As Integer, lpRect As RECT)


Statement:
Declare Function FillRect Lib "GDI" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer


Statement:
Declare Function FrameRect Lib "GDI" (ByVal hDC As Integer, lpRect As RECT, ByVal hBrush As Integer) As Integer


Statement:
Declare Sub InvertRect Lib "GDI" (ByVal hDC As Integer, lpRect As RECT)


Statement:
Declare Sub SetRect Lib "GDI" (lpRect As RECT, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer)


Statement:
Declare Sub SetRectEmpty Lib "GDI" (lpRect As RECT)


Statement:
Declare Function CopyRect Lib "GDI" (lpDestRect As RECT, lpSourceRect As RECT) As Integer


Statement:
Declare Sub InflateRect Lib "GDI" (lpRect As RECT, ByVal X As Integer, ByVal Y As Integer)


Statement:
Declare Function IntersectRect Lib "GDI" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Integer


Statement:
Declare Function UnionRect Lib "GDI" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Integer


Statement:
Declare Sub OffsetRect Lib "GDI" (lpRect As RECT, ByVal X As Integer, ByVal Y As Integer)


Statement:
Declare Function IsRectEmpty Lib "GDI" (lpRect As RECT) As Integer


Statement:
Declare Function EqualRect Lib "GDI" (lpRect1 As RECT, lpRect2 As RECT) As Integer


Statement:
Declare Function PtInRect Lib "GDI" (lpRect As RECT, ptRect As Any) As Integer


Statement:
Declare Function RectVisible Lib "GDI" (ByVal hDC As Integer, lpRect As RECT) As Integer


Statement:
Declare Function RectInRegion Lib "GDI" (ByVal hRgn As Integer, lpRect As RECT) As Integer


Statement:
Declare Function GetCurrentTime Lib "User" () As Long


Statement:
Declare Function GetTickCount Lib "User" () As Long


Statement:
Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer


Statement:
Declare Function SetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal wNewWord As Integer) As Integer


Statement:
Declare Function GetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long


Statement:
Declare Function SetWindowLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long


Statement:
Declare Function GetClassWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer


Statement:
Declare Function SetClassWord Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal wNewWord As Integer) As Integer


Statement:
Declare Function GetClassLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Long


Statement:
Declare Function SetClassLong Lib "User" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Long) As Long


Statement:
Declare Function GetDesktopHwnd Lib "User" () As Integer


Statement:
Declare Function GetDesktopWindow Lib "User" () As Integer


Statement:
Declare Function GetParent Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function SetParent Lib "User" (ByVal hWndChild As Integer, ByVal hWndNewParent As Integer) As Integer


Statement:
Declare Function FindWindow Lib "User" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Integer


Statement:
Declare Function GetClassName Lib "User" (ByVal hWnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer


Statement:
Declare Function GetTopWindow Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function GetNextWindow Lib "User" (ByVal hWnd As Integer, ByVal wFlag As Integer) As Integer


Statement:
Declare Function GetWindowTask Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Declare Function GetLastActivePopup Lib "User" (ByVal hWndOwnder As Integer) As Integer


Statement:
Declare Function GetWindow Lib "User" (ByVal hWnd As Integer, ByVal wCmd As Integer) As Integer


Statement:
Type MENUITEMTEMPLATEHEADER
	versionNumber As Integer
	offset As Integer
End Type


Statement:
Type MENUITEMTEMPLATE
	mtOption As Integer
	mtID As Integer
	mtString As Long 
End Type


Statement:
Declare Function LoadBitmap Lib "User" (ByVal hInstance As Integer, ByVal lpBitmapName As Any) As Integer


Statement:
Declare Function LoadCursor Lib "User" (ByVal hInstance As Integer, ByVal lpCursorName As Any) As Integer


Statement:
Declare Function CreateCursor Lib "User" (ByVal hInstance%, ByVal nXhotspot%, ByVal nYhotspot%, ByVal nWidth%, ByVal nHeight%, ByVal lpANDbitPlane As Any, ByVal lpXORbitPlane As Any) As Integer


Statement:
Declare Function DestroyCursor Lib "User" (ByVal hCursor As Integer) As Integer


Statement:
Declare Function LoadIcon Lib "User" (ByVal hInstance As Integer, ByVal lpIconName As Any) As Integer


Statement:
Declare Function CreateIcon Lib "User" (ByVal hInstance%, ByVal nWidth%, ByVal nHeight%, ByVal nPlanes%, ByVal nBitsPixel%, ByVal lpANDbits As Any, ByVal lpXORbits As Any) As Integer


Statement:
Declare Function DestroyIcon Lib "User" (ByVal hIcon As Integer) As Integer


Statement:
Declare Function LoadString Lib "User" (ByVal hInstance As Integer, ByVal wID As Integer, ByVal lpBuffer As Any, ByVal nBufferMax As Integer) As Integer


Statement:
Declare Function AddFontResource Lib "GDI" (ByVal lpFilename As Any) As Integer


Statement:
Declare Function RemoveFontResource Lib "GDI" (ByVal lpFilename As Any) As Integer


Statement:
Public Const EM_GETLINECOUNT = WM_USER+10


Statement:
Public Const EM_LINEFROMCHAR = WM_USER+25


Statement:
Public Const EM_SETWORDBREAK = WM_USER+26


Statement:
Public Const EM_SETTABSTOPS = WM_USER+27


Statement:
Public Const EM_SETPASSWORDCHAR = WM_USER+28


Statement:
Public Const EM_EMPTYUNDOBUFFER = WM_USER+29


Statement:
Public Const SS_NOPREFIX = &H80&        '  Don't do "&" character translation


Statement:
Declare Function IsDialogMessage Lib "User" (ByVal hDlg As Integer, lpMsg As MSG) As Integer


Statement:
Declare Sub MapDialogRect Lib "User" (ByVal hDlg As Integer, lpRect As RECT)


Statement:
Declare Function DlgDirList Lib "User" (ByVal hDlg As Integer, ByVal lpPathSpec As String, ByVal nIDListBox As Integer, ByVal nIDStaticPath As Integer, ByVal wFiletype As Integer) As Integer


Statement:
Declare Function DlgDirSelect Lib "User" (ByVal hDlg As Integer, ByVal lpString As String, ByVal nIDListBox As Integer) As Integer


Statement:
Declare Function DlgDirListComboBox Lib "User" (ByVal hDlg As Integer, ByVal lpPathSpec As String, ByVal nIDComboBox As Integer, ByVal nIDStaticPath As Integer, ByVal wFileType As Integer) As Integer


Statement:
Declare Function DlgDirSelectComboBox Lib "User" (ByVal hDlg As Integer, ByVal lpString As String, ByVal nIDComboBox As Integer) As Integer


Statement:
Public Const DS_LOCALEDIT = &H20&       '  Edit items get Local storage.


Statement:
Public Const DS_SETFONT = &H40& '  User specified font for Dlg controls


Statement:
Public Const DS_MODALFRAME = &H80&      '  Can be combined with WS_CAPTION


Statement:
Public Const DS_NOIDLEMSG = &H100&      '  WM_ENTERIDLE message will not be sent


Statement:
Public Const DC_HASDEFID = &H534%     '0x534B


Statement:
Public Const DLGC_WANTARROWS = &H1      '  Control wants arrow keys


Statement:
Public Const DLGC_WANTTAB = &H2 '  Control wants tab keys


Statement:
Public Const DLGC_WANTALLKEYS = &H4     '  Control wants all keys


Statement:
Public Const DLGC_WANTMESSAGE = &H4     '  Pass message to control


Statement:
Public Const DLGC_HASSETSEL = &H8       '  Understands EM_SETSEL message


Statement:
Public Const DLGC_DEFPUSHBUTTON = &H10  '  Default pushbutton


Statement:
Public Const DLGC_RADIOBUTTON = &H40    '  Radio button


Statement:
Public Const DLGC_WANTCHARS = &H80      '  Want WM_CHAR messages


Statement:
Public Const DLGC_STATIC = &H100        '  Static item: don't include


Statement:
Public Const DLGC_BUTTON = &H2000       '  Button item: can be checked


Statement:
Public Const LB_INSERTSTRING = (WM_USER+2)


Statement:
Public Const LB_DELETESTRING = (WM_USER+3)


Statement:
Public Const LB_RESETCONTENT = (WM_USER+5)


Statement:
Public Const LB_GETTEXTLEN = (WM_USER+11)


Statement:
Public Const LB_SELECTSTRING = (WM_USER+13)


Statement:
Public Const LB_GETTOPINDEX = (WM_USER+15)


Statement:
Public Const LB_FINDSTRING = (WM_USER+16)


Statement:
Public Const LB_GETSELCOUNT = (WM_USER+17)


Statement:
Public Const LB_GETSELITEMS = (WM_USER+18)


Statement:
Public Const LB_SETTABSTOPS = (WM_USER+19)


Statement:
Public Const LB_GETHORIZONTALEXTENT = (WM_USER+20)


Statement:
Public Const LB_SETHORIZONTALEXTENT = (WM_USER+21)


Statement:
Public Const LB_SETCOLUMNWIDTH = (WM_USER+22)


Statement:
Public Const LB_SETTOPINDEX = (WM_USER+24)


Statement:
Public Const LB_GETITEMRECT = (WM_USER+25)


Statement:
Public Const LB_GETITEMDATA = (WM_USER+26)


Statement:
Public Const LB_SETITEMDATA = (WM_USER+27)


Statement:
Public Const LB_SELITEMRANGE = (WM_USER+28)


Statement:
Public Const LBS_STANDARD =  (LBS_NOTIFY Or LBS_SORT Or WS_VSCROLL Or WS_BORDER)


Statement:
Public Const CB_GETEDITSEL = (WM_USER+0)


Statement:
Public Const CB_SETEDITSEL = (WM_USER+2)


Statement:
Public Const CB_DELETESTRING = (WM_USER+4)


Statement:
Public Const CB_GETLBTEXTLEN = (WM_USER+9)


Statement:
Public Const CB_INSERTSTRING = (WM_USER+10)


Statement:
Public Const CB_RESETCONTENT = (WM_USER+11)


Statement:
Public Const CB_FINDSTRING = (WM_USER+12)


Statement:
Public Const CB_SELECTSTRING = (WM_USER+13)


Statement:
Public Const CB_SETCURSEL = (WM_USER+14)


Statement:
Public Const CB_SHOWDROPDOWN = (WM_USER+15)


Statement:
Public Const CB_GETITEMDATA = (WM_USER+16)


Statement:
Public Const CB_SETITEMDATA = (WM_USER+17)


Statement:
Public Const CB_GETDROPPEDCONTROLRECT = (WM_USER+18)


Statement:
Declare Function OpenSound Lib "Sound" () As Integer


Statement:
Declare Function SetVoiceQueueSize Lib "Sound" (ByVal nVoice As Integer, ByVal nBytes As Integer) As Integer


Statement:
Declare Function SetVoiceNote Lib "Sound" (ByVal nVoice As Integer, ByVal nValue As Integer, ByVal nLength As Integer, ByVal nCdots As Integer) As Integer


Statement:
Declare Function SetVoiceAccent Lib "Sound" (ByVal nVoice As Integer, ByVal nTempo As Integer, ByVal nVolume As Integer, ByVal nMode As Integer, ByVal nPitch As Integer) As Integer


Statement:
Declare Function SetVoiceEnvelope Lib "Sound" (ByVal nVoice As Integer, ByVal nShape As Integer, ByVal nRepeat As Integer) As Integer


Statement:
Declare Function SetSoundNoise Lib "Sound" (ByVal nSource As Integer, ByVal nDuration As Integer) As Integer


Statement:
Declare Function SetVoiceSound Lib "Sound" (ByVal nVoice As Integer, ByVal lFrequency As Long, ByVal nDuration As Integer) As Integer


Statement:
Declare Function StartSound Lib "Sound" () As Integer


Statement:
Declare Function StopSound Lib "Sound" () As Integer


Statement:
Declare Function WaitSoundState Lib "Sound" (ByVal nState As Integer) As Integer


Statement:
Declare Function SyncAllVoices Lib "Sound" () As Integer


Statement:
Declare Function CountVoiceNotes Lib "Sound" (ByVal nVoice As Integer) As Integer


Statement:
Declare Function GetThresholdEvent Lib "Sound" () As Integer


Statement:
Declare Function GetThresholdStatus Lib "Sound" () As Integer


Statement:
Declare Function SetVoiceThreshold Lib "Sound" (ByVal nVoice As Integer, ByVal nNotes As Integer) As Integer


Statement:
Public Const INFINITE = &HFFFF  '  Infinite timeout


Statement:
Public Const CE_RXOVER = &H1    '  Receive Queue overflow


Statement:
Public Const CE_OVERRUN = &H2   '  Receive Overrun Error


Statement:
Public Const CE_RXPARITY = &H4  '  Receive Parity Error


Statement:
Public Const CE_FRAME = &H8     '  Receive Framing error


Statement:
Public Const CE_BREAK = &H10    '  Break Detected


Statement:
Public Const CE_CTSTO = &H20    '  CTS Timeout


Statement:
Public Const CE_DSRTO = &H40    '  DSR Timeout


Statement:
Public Const CE_RLSDTO = &H80   '  RLSD Timeout


Statement:
Public Const CE_TXFULL = &H100  '  TX Queue is full


Statement:
Public Const CE_PTO = &H200     '  LPTx Timeout


Statement:
Public Const CE_IOE = &H400     '  LPTx I/O Error


Statement:
Public Const CE_DNS = &H800     '  LPTx Device not selected


Statement:
Public Const CE_OOP = &H1000    '  LPTx Out-Of-Paper


Statement:
Public Const CE_MODE = &H8000   '  Requested mode unsupported


Statement:
Public Const IE_BADID = (-1)    '  Invalid or unsupported id


Statement:
Public Const IE_OPEN = (-2)     '  Device Already Open


Statement:
Public Const IE_NOPEN = (-3)    '  Device Not Open


Statement:
Public Const IE_MEMORY = (-4)   '  Unable to allocate queues


Statement:
Public Const IE_DEFAULT = (-5)  '  Error in default parameters


Statement:
Public Const IE_HARDWARE = (-10)        '  Hardware Not Present


Statement:
Public Const IE_BYTESIZE = (-11)        '  Illegal Byte Size


Statement:
Public Const IE_BAUDRATE = (-12)        '  Unsupported BaudRate


Statement:
Public Const EV_RXCHAR = &H1    '  Any Character received


Statement:
Public Const EV_RXFLAG = &H2    '  Received certain character


Statement:
Public Const EV_TXEMPTY = &H4   '  Transmitt Queue Empty


Statement:
Public Const EV_CTS = &H8       '  CTS changed state


Statement:
Public Const EV_DSR = &H10      '  DSR changed state


Statement:
Public Const EV_RLSD = &H20     '  RLSD changed state


Statement:
Public Const EV_BREAK = &H40    '  BREAK received


Statement:
Public Const EV_ERR = &H80      '  Line status error occurred


Statement:
Public Const EV_RING = &H100    '  Ring signal detected


Statement:
Public Const EV_PERR = &H200    '  Printer error occured


Statement:
Public Const SETXOFF = 1        '  Simulate XOFF received


Statement:
Type DCB
	Id As String * 1
	BaudRate As Integer
	ByteSize As String * 1
	Parity As String * 1
	StopBits As String * 1
	RlsTimeout As Integer
	CtsTimeout As Integer
	DsrTimeout As Integer

	Bits1 As String * 1 ' The fifteen actual DCB bit-sized data fields
	Bits2 As String * 1 ' within these two bytes can be manipulated by
			  ' bitwise logical And/Or operations.  Refer to
			  ' SDKWIN.HLP for location/meaning of specific bits

	XonChar As String * 1
	XoffChar As String * 1
	XonLim As Integer
	XoffLim As Integer
	PeChar As String * 1
	EofChar As String * 1
	EvtChar As String * 1
	TxDelay As Integer
End Type


Statement:
Type COMSTAT
	Bits As String * 1 ' For specific bit flags and their 
			 ' meanings, refer to SDKWIN.HLP.
	cbInQue As Integer
	cbOutQue As Integer
End Type


Statement:
Declare Function OpenComm Lib "User" (ByVal lpComName As String, ByVal wInQueue As Integer, ByVal wOutQueue As Integer) As Integer


Statement:
Declare Function SetCommState Lib "User" (lpDCB As DCB) As Integer


Statement:
Declare Function GetCommState Lib "User" (ByVal nCid As Integer, lpDCB as DCB) As Integer


Statement:
Declare Function ReadComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function UngetCommChar Lib "User" (ByVal nCid As Integer, ByVal cChar As Integer) As Integer


Statement:
Declare Function WriteComm Lib "User" (ByVal nCid As Integer, ByVal lpBuf As String, ByVal nSize As Integer) As Integer


Statement:
Declare Function CloseComm Lib "User" (ByVal nCid As Integer) As Integer


Statement:
Declare Function BuildCommDCB Lib "User" (ByVal lpDef As String, lpDCB As DCB) As Integer


Statement:
Declare Function TransmitCommChar Lib "User" (ByVal nCid As Integer, ByVal cChar As Integer) As Integer


Statement:
Declare Function SetCommEventMask Lib "User" (ByVal nCid as Integer, nEvtMask as Integer) As Long


Statement:
Declare Function GetCommEventMask Lib "User" (ByVal nCid As Integer, ByVal nEvtMask As Integer) As Integer


Statement:
Declare Function SetCommBreak Lib "User" (ByVal nCid As Integer) As Integer


Statement:
Declare Function ClearCommBreak Lib "User" (ByVal nCid As Integer) As Integer


Statement:
Declare Function FlushComm Lib "User" (ByVal nCid As Integer, ByVal nQueue As Integer) As Integer


Statement:
Declare Function EscapeCommFunction Lib "User" (ByVal nCid As Integer, ByVal nFunc As Integer) As Integer


Statement:
Type MDICREATESTRUCT
	szClass As Long
	szTitle As Long
	hOwner As Integer
	x As Integer
	y As Integer
	cx As Integer
	cy As Integer
	style As Long
	lParam As Long
End Type


Statement:
Type CLIENTCREATESTRUCT
	hWindowMenu As Integer
	idFirstChild As Integer
End Type


Statement:
Declare Function DefFrameProc Lib "User" (ByVal hWnd As Integer, ByVal hWndMDIClient As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long


Statement:
Declare Function DefMDIChildProc Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long


Statement:
Declare Function TranslateMDISysAccel Lib "User" (ByVal hWndClient As Integer, lpMsg As MSG) As Integer


Statement:
Declare Function ArrangeIconicWindows Lib "User" (ByVal hWnd As Integer) As Integer


Statement:
Public Const HELP_CONTEXT = &H1 '  Display topic in ulTopic


Statement:
Public Const HELP_QUIT = &H2    '  Terminate help


Statement:
Public Const HELP_INDEX = &H3   '  Display index


Statement:
Public Const HELP_HELPONHELP = &H4      '  Display help on using help


Statement:
Public Const HELP_SETINDEX = &H5        '  Set the current Index for multi index help


Statement:
Public Const HELP_KEY = &H101           '  Display topic for keyword in offabData


Statement:
Declare Function WinHelp Lib "User" (ByVal hWnd As Integer, ByVal lpHelpFile As String, ByVal wCommand As Integer, ByVal dwData As Any) As Integer


Statement:
Type MULTIKEYHELP
	mkSize As Integer
	mkKeylist As String * 1
	szKeyphrase As String * 253 ' Array length is arbitrary; may be changed

End Type


Statement:
Public Const HELP_CONTENTS = &H3     ' Display Help for a particular topic


Statement:
Public Const HELP_SETCONTENTS = &H5  ' Display Help contents topic


Statement:
Public Const HELP_CONTEXTPOPUP = &H8 ' Display Help topic in popup window


Statement:
Public Const HELP_FORCEFILE = &H9    ' Ensure correct Help file is displayed


Statement:
Public Const HELP_COMMAND = &H102    ' Execute Help macro


Statement:
Public Const HELP_PARTIALKEY = &H105 ' Display topic found in keyword list


Statement:
Public Const HELP_SETWINPOS = &H203  ' Display and position Help window


Statement:
Declare Function GetFreeSystemResources Lib "User" (ByVal fuSysResource As Integer) As Integer


Statement:
Public Const GFSR_SYSTEMRESOURCES = &H0000


Statement:
Public Const GFSR_USERRESOURCES = &H0002


Statement:
Declare Sub LogError Lib "Kernel" (ByVal uErr As Integer, lpvInfo As Any)


Statement:
Declare Function ProfInsChk Lib "User" () As Integer


Statement:
Declare Sub ProfSetup Lib "User" (ByVal nBufferSize As Integer, ByVal nSamples As Integer)


Statement:
Declare Sub ProfSampRate Lib "User" (ByVal nRate286 As Integer, ByVal nRate386 As Integer)


Statement:
Public Const ERR_BAD_STRING_PTR = &H700a


Statement:
Public Const ERR_BAD_GLOBAL_HANDLE = &H6022


Statement:
Public Const ERR_BAD_LOCAL_HANDLE = &H6023


Statement:
Public Const ERR_BAD_GDI_OBJECT = &H6061


Statement:
Public Const ERR_NESTEDBEGINPAINT = &H0048


Statement:
Public Const ERR_DELOBJSELECTED = &H0082


Statement:
Type WINDEBUGINFO
	flags As Integer
	dwOptions As Long
	dwFilter As Long
	achAllocModule As String * 8
	dwAllocBreak As Long
	dwAllocCount As Long
End Type


Statement:
Declare Function GetWinDebugInfo Lib "Kernel" (lpwdi As WINDEBUGINFO, ByVal flags As Integer) As Integer


Statement:
Declare Function SetWinDebugInfo Lib "Kernel" (lpwdi As WINDEBUGINFO) As Integer


Statement:
Public Const DBO_DISABLEGPTRAPPING = &H0010


Statement:
Public Const DBF_KRN_LOADMODULE = &H0002


Statement:
Public Const DBF_KRN_SEGMENTLOAD = &H0004


Statement:
Declare Function ExitWindowsExec Lib "User" (ByVal lpszExe As String, ByVal lpszParams As String) As Integer


Statement:
Declare Function IsBadReadPtr Lib "Kernel" (ByVal lp As String, ByVal cb As Integer) As Integer


Statement:
Declare Function IsBadWritePtr Lib "Kernel" (ByVal lp As String, ByVal cb As Integer) As Integer


Statement:
Declare Function IsBadStringPtr Lib "Kernel" (ByVal lpsz As String, ByVal cchMax As Integer) As Integer


Statement:
Declare Function IsTask Lib "Kernel" (ByVal htask As Integer) As Integer


Statement:
Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As String, ByVal lpszString2 As String, ByVal cChars As Integer) As String


Statement:
Declare Function IsDBCSLeadByte Lib "Kernel" (ByVal bTestChar As Integer) As Integer


Statement:
Type SIZE
	cx As Integer
	cy As Integer
End Type


Statement:
Declare Function SetBoundsRect Lib "GDI" (ByVal hdc As Integer, lprcBounds As RECT, ByVal flags As Integer) As Integer


Statement:
Declare Function GetBoundsRect Lib "GDI" (ByVal hdc As Integer, lprcBounds As RECT, ByVal flags As Integer) As Integer


Statement:
Declare Function SetWindowOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function GetWindowOrgEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function SetWindowExtEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpSize As SIZE) As Integer


Statement:
Declare Function GetWindowExtEx Lib "GDI" (ByVal hdc As Integer, lpSize As SIZE) As Integer


Statement:
Declare Function OffsetWindowOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function ScaleWindowExtEx% Lib "GDI" (ByVal hdc%, ByVal nXnum%,  ByVal nXdenom%, ByVal nYnum%, ByVal nYdenom%, lpSize As SIZE)


Statement:
Declare Function SetViewportExtEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpSize As SIZE) As Integer


Statement:
Declare Function GetViewportExtEx Lib "GDI" (ByVal hdc As Integer, lpSize As SIZE) As Integer


Statement:
Declare Function SetViewportOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function GetViewportOrgEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function OffsetViewportOrgEx Lib "GDI" (ByVal hdc As Integer, ByVal nX As Integer, ByVal nY As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function ScaleViewportExtEx% Lib "GDI" (ByVal hdc%, ByVal nXnum%, ByVal nXdenom%, ByVal nYnum%, ByVal nYdenom%, lpSize As SIZE)


Statement:
Declare Function GetBrushOrgEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function MoveToEx Lib "GDI" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function GetCurrentPositionEx Lib "GDI" (ByVal hdc As Integer, lpPoint As POINTAPI) As Integer


Statement:
Declare Function GetTextExtentPoint Lib "GDI" (ByVal hdc As Integer, ByVal lpszString As String, ByVal cbString As Integer, lpSize As SIZE) As Integer


Statement:
Declare Function GetAspectRatioFilterEx Lib "GDI" (ByVal hdc As Integer, lpAspectRatio As SIZE) As Integer


Statement:
Type PANOSE
	bFamilyType As String * 1
	bSerifStyle As String * 1
	bWeight As String * 1
	bProportion As String * 1
	bContrast As String * 1
	bStrokeVariation As String * 1
	bArmStyle As String * 1
	bLetterform As String * 1
	bMidline As String * 1
	bXHeight As String * 1
End Type


Statement:
Type OUTLINETEXTMETRIC
	otmSize As Integer
	otmTextMetrics As TEXTMETRIC
	otmFiller As String * 1
	otmPanoseNumber As PANOSE
	otmfsSelection As Integer
	otmfsType As Integer
	otmsCharSlopeRise As Integer
	otmsCharSlopeRun As Integer
	otmItalicAngle As Integer
	otmEMSquare As Integer
	otmAscent As Integer
	otmDescent As Integer
	otmLineGap As Integer
	otmsCapEmHeight As Integer
	otmsXHeight As Integer
	otmrcFontBox As RECT
	otmMacAscent As Integer
	otmMacDescent As Integer
	otmMacLineGap As Integer
	otmusMinimumPPEM As Integer
	otmptSubscriptSize As POINTAPI
	otmptSubscriptOffset As POINTAPI
	otmptSuperscriptSize As POINTAPI
	otmptSuperscriptOffset As POINTAPI
	otmsStrikeoutSize As Integer
	otmsStrikeoutPosition As Integer
	otmsUnderscorePosition As Integer
	otmsUnderscoreSize As Integer
	otmpFamilyName As Long
	otmpFaceName As Long
	otmpStyleName As Long
	otmpFullName As Long
End Type


Statement:
Declare Function GetOutlineTextMetrics Lib "GDI" (ByVal hdc As Integer, ByVal cbData As Integer, lpotm As OUTLINETEXTMETRIC) As Integer


Statement:
Type NEWTEXTMETRIC
	tmHeight As Integer
	tmAscent As Integer
	tmDescent As Integer
	tmInternalLeading As Integer
	tmExternalLeading As Integer
	tmAveCharWidth As Integer
	tmMaxCharWidth As Integer
	tmWeight As Integer
	tmItalic As String * 1
	tmUnderlined As String * 1
	tmStruckOut As String * 1
	tmFirstChar As String * 1
	tmLastChar As String * 1
	tmDefaultChar As String * 1
	tmBreakChar As String * 1
	tmPitchAndFamily As String * 1
	tmCharSet As String * 1
	tmOverhang As Integer
	tmDigitizedAspectX As Integer
	tmDigitizedAspectY As Integer
	ntmFlags As Long
	ntmSizeEM As Integer
	ntmCellHeight As Integer
	ntmAvgWidth As Integer
End Type


Statement:
Declare Function GetFontData& Lib "GDI" (ByVal hdc%, ByVal dwTable&, ByVal dwOffset&, ByVal lpvBuffer$, ByVal cbData&)


Statement:
Declare Function CreateScalableFontResource% Lib "GDI" (ByVal fHidden%, ByVal lpszResourceFile$, ByVal lpszFontFile$, ByVal lpszCurrentPath$)


Statement:
Type GLYPHMETRICS
	gmBlackBoxX As Integer
	gmBlackBoxY As Integer
	gmptGlyphOrigin As POINTAPI
	gmCellIncX As Integer
	gmCellIncY As Integer
End Type


Statement:
Type FIXED
	fract As Integer
	value As Integer
End Type


Statement:
Type MAT2
	eM11 As FIXED
	eM12 As FIXED
	eM21 As FIXED
	eM22 As FIXED
End Type


Statement:
Declare Function GetGlyphOutline& Lib "GDI" (ByVal hdc%, ByVal uChar%, ByVal fuFormat%, lpgm As GLYPHMETRICS, ByVal cbBuffer&, ByVal lpBuffer$, lpmat2 As MAT2)


Statement:
Type POINTFX
	x As FIXED
	y As FIXED
End Type


Statement:
Type TTPOLYCURVE
	wType As Integer
	cpfx As Integer
	apfx As POINTFX
End Type


Statement:
Type TTPOLYGONHEADER
	cb As Long
	dwType As Long
	pfxStart As POINTFX
End Type


Statement:
Type ABC
	abcA As Integer
	abcB As Integer
	abcC As Integer
End Type


Statement:
Declare Function GetCharABCWidths Lib "GDI" (ByVal hdc As Integer, ByVal uFirstChar As Integer, ByVal uLastChar As Integer, lpabc As ABC) As Integer


Statement:
Type KERNINGPAIR
	wFirst As Integer
	wSecond As Integer
	iKernAmount As Integer
End Type


Statement:
Declare Function GetKerningPairs Lib "GDI" (ByVal hdc As Integer, ByVal cPairs As Integer, lpkrnpair As KERNINGPAIR) As Integer


Statement:
Type RASTERIZER_STATUS
	nSize As Integer
	wFlags As Integer
	nLanguageID As Integer
End Type


Statement:
Declare Function GetRasterizerCaps Lib "GDI" (lpraststat As RASTERIZER_STATUS, ByVal cb As Integer) As Integer


Statement:
Declare Function SetBitmapDimensionEx Lib "GDI" (ByVal hbm As Integer, ByVal nX As Integer, ByVal nY As Integer, lpSize As SIZE) As Integer


Statement:
Declare Function GetBitmapDimensionEx Lib "GDI" (ByVal hBitmap As Integer, lpDimension As SIZE) As Integer


Statement:
Declare Function SetMetaFileBitsBetter Lib "GDI" (ByVal hmt As Integer) As Integer


Statement:
Type DOCINFO
	cbSize As Integer
	lpszDocName As Long
	lpszOutput As Long
End Type


Statement:
Declare Function StartDoc Lib "GDI" (ByVal hdc As Integer, lpdi As DOCINFO) As Integer


Statement:
Declare Function StartPage Lib "GDI" (ByVal hdc As Integer) As Integer


Statement:
Declare Function EndPage Lib "GDI" (ByVal hdc As Integer) As Integer


Statement:
Declare Function EndDocAPI Lib "GDI" Alias "EndDoc" (ByVal hdc As Integer) As Integer


Statement:
Declare Function AbortDoc Lib "GDI" (ByVal hdc As Integer) As Integer


Statement:
Declare Function SpoolFile Lib "GDI" (ByVal lpszPrinter As String, ByVal lpszPort As String, ByVal lpszJob As String, ByVal lpszFile As String) As Integer


Statement:
Declare Function SystemParametersInfo Lib "User" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Any, ByVal fuWinIni As Integer) As Integer


Statement:
Public Const SPIF_UPDATEINIFILE = &H0001


Statement:
Public Const SPIF_SENDWININICHANGE = &H0002


Statement:
Declare Function GetMessageExtraInfo Lib "User" () As Long


Statement:
Declare Function GetQueueStatus Lib "User" (ByVal fuFlags As Integer) As Long


Statement:
Public Const WS_EX_TOPMOST = &H00000008&


Statement:
Public Const WS_EX_ACCEPTFILES = &H00000010&


Statement:
Public Const WS_EX_TRANSPARENT = &H00000020&


Statement:
Type WINDOWPLACEMENT
	length As Integer
	flags As Integer
	showCmd As Integer
	ptMinPosition As POINTAPI
	ptMaxPosition As POINTAPI
	rcNormalPosition As RECT
End Type


Statement:
Public Const WPF_SETMINPOSITION = &H0001


Statement:
Public Const WPF_RESTORETOMAXIMIZED = &H0002


Statement:
Declare Function GetWindowPlacement Lib "User" (ByVal hWnd As Integer, lpwndpl As WINDOWPLACEMENT) As Integer


Statement:
Declare Function SetWindowPlacement Lib "User" (ByVal hWnd As Integer, lpwndpl As WINDOWPLACEMENT) As Integer


Statement:
Public Const WM_WINDOWPOSCHANGING = &H0046


Statement:
Public Const WM_WINDOWPOSCHANGED = &H0047


Statement:
Type WINDOWPOS
	hWnd As Integer
	hWndInsertAfter As Integer
	x As Integer
	y As Integer
	cx As Integer
	cy As Integer
	flags As Integer
End Type


Statement:
Declare Sub MapWindowPoints Lib "User" (ByVal hWndFrom As Integer, ByVal hWndTo As Integer, lppt As Any, ByVal cPoints As Integer)


Statement:
Declare Function GetDCEx Lib "User" (ByVal hWnd As Integer, ByVal hrgnclip As Integer, ByVal fdwOptions As Long) As Integer


Statement:
Public Const DCX_CLIPCHILDREN = &H00000008&


Statement:
Public Const DCX_CLIPSIBLINGS = &H00000010&


Statement:
Public Const DCX_PARENTCLIP = &H00000020&


Statement:
Public Const DCX_EXCLUDERGN = &H00000040&


Statement:
Public Const DCX_INTERSECTRGN = &H00000080&


Statement:
Public Const DCX_LOCKWINDOWUPDATE = &H00000400&


Statement:
Declare Function LockWindowUpdate Lib "User" (ByVal hWndLock As Integer) As Integer


Statement:
Declare Function RedrawWindow Lib "User" (ByVal hWnd As Integer, lprcUpdate As RECT, ByVal hrgnUpdate As Integer, ByVal fuRedraw As Integer) As Integer


Statement:
Public Const RDW_NOINTERNALPAINT = &H0010


Statement:
Declare Function ScrollWindowEx% Lib "User" (ByVal hWnd%, ByVal dx%, ByVal dy%, lprcScroll As RECT, lprcClip As RECT, ByVal hrgnUpdate%, lprcUpdate As RECT, ByVal fuScroll%)


Statement:
Type NCCALCSIZE_PARAMS
	rgrc As Long
	lppos As Long
End Type


Statement:
Declare Function IsMenu Lib "User" (ByVal hmenu As Integer) As Integer


Statement:
Declare Function GetOpenClipboardWindow Lib "User" () As Integer


Statement:
Declare Function CopyCursor Lib "User" (ByVal hinst As Integer, ByVal hcur As Integer) As Integer


Statement:
Declare Function GetCursor Lib "User" () As Integer


Statement:
Declare Sub GetClipCursor Lib "User" (lprc As RECT)


Statement:
Declare Function CopyIcon Lib "User" (ByVal hinst As Integer, ByVal hicon As Integer) As Integer


Statement:
Public Const MDIS_ALLCHILDSTYLES = &H0001


Statement:
Public Const MDITILE_HORIZONTAL = &H0001


Statement:
Public Const MDITILE_SKIPDISABLED = &H0002


Statement:
Public Const ES_WANTRETURN = &H00001000&


Statement:
Public Const EM_GETFIRSTVISIBLELINE = (WM_USER+30)


Statement:
Public Const EM_SETREADONLY = (WM_USER+31)


Statement:
Public Const EM_SETWORDBREAKPROC = (WM_USER+32)


Statement:
Public Const EM_GETWORDBREAKPROC = (WM_USER+33)


Statement:
Public Const EM_GETPASSWORDCHAR = (WM_USER+34)


Statement:
Public Const LB_SETITEMHEIGHT = (WM_USER+33)


Statement:
Public Const LB_GETITEMHEIGHT = (WM_USER+34)


Statement:
Public Const LB_FINDSTRINGEXACT = (WM_USER+35)


Statement:
Declare Function DlgDirSelectEx% Lib "User" (ByVal hWndDlg%, ByVal lpszPath$, ByVal cbPath%, ByVal idListBox%)


Statement:
Declare Function DlgDirSelectComboBoxEx% Lib "User" (ByVal hWndDlg%, ByVal lpszPath$, ByVal cbPath%, ByVal idComboBox%)


Statement:
Public Const CBS_DISABLENOSCROLL = &H0800&


Statement:
Public Const CB_SETITEMHEIGHT = (WM_USER+19)


Statement:
Public Const CB_GETITEMHEIGHT = (WM_USER+20)


Statement:
Public Const CB_SETEXTENDEDUI = (WM_USER+21)


Statement:
Public Const CB_GETEXTENDEDUI = (WM_USER+22)


Statement:
Public Const CB_GETDROPPEDSTATE = (WM_USER+23)


Statement:
Public Const CB_FINDSTRINGEXACT = (WM_USER+24)


Statement:
Declare Function UnhookWindowsHookEx Lib "User" (ByVal hHook As Integer) As Integer


Statement:
Declare Function CallNextHookEx Lib "User" (ByVal hHook As Integer, ByVal ncode As Integer, ByVal wParam As Integer, lParam As Any) As Long


Statement:
Type CBT_CREATEWND
	lpcs As Long
	hWndInsertAfter As Integer
End Type


Statement:
Type CBTACTIVATESTRUCT
	fMouse As Integer
	hWndActive As Integer
End Type


Statement:
Type HARDWAREHOOKSTRUCT
	hWnd As Integer
	wMessage As Integer
	wParam As Integer
	lParam As Long
End Type


Statement:
Type DEBUGHOOKINFO
	hModuleHook As Integer
	reserved As Long
	lParam As Long
	wParam As Integer
	code As Integer
End Type


Statement:
Declare Function QuerySendMessage Lib "User" (ByVal hreserved1 As Integer, ByVal hreserved2 As Integer, ByVal hreserved3 As Integer, ByVal lpMessage As String) As Integer


Statement:
Declare Function LockInput Lib "User" (ByVal hReserved As Integer, ByVal hWndInput As Integer, ByVal fLock As Integer) As Integer


Statement:
Declare Function GetSystemDebugState Lib "User" () As Long


Statement:
Declare Function EnableCommNotification Lib "User" (ByVal idComDev As Integer, ByVal hWnd As Integer, ByVal cbWriteNotify As Integer, ByVal OutQueue As Integer) As Integer


Statement:
Public Const DRV_QUERYCONFIGURE = &H0008


Statement:
Public Const DRV_EXITAPPLICATION = &H000C


Statement:
Type DRVCONFIGINFO
	dwDCISize As Long
	lpszDCISectionName As Long
	lpszDCIAliasName As Long
End Type


Statement:
Public Const DRVEA_ABNORMALEXIT = &H0002


Statement:
Declare Function DefDriverProc Lib "User" (ByVal dwDriverIdentifier As Long, ByVal hdrvr As Integer, ByVal umsg As Integer, lParam1 As Any, lParam2 As Any) As Long


Statement:
Declare Function OpenDriver Lib "User" (ByVal lpDriverName As String, ByVal lpSectionName As String, lParam As Any) As Integer


Statement:
Declare Function CloseDriver Lib "User" (ByVal hdrvr As Integer, lParam1 As Any, lParam2 As Any) As Long


Statement:
Declare Function SendDriverMessage Lib "User" (ByVal hdrvr As Integer, ByVal msg As Integer, lParam1 As Any, lParam2 As Any) As Long


Statement:
Declare Function GetDriverModuleHandle Lib "User" (ByVal hdrvr As Integer) As Integer


Statement:
Declare Function GetNextDriver Lib "User" (ByVal hdrvr As Integer, ByVal fdwFlag As Long) As Integer


Statement:
Public Const GND_FIRSTINSTANCEONLY = &H00000001


Statement:
Type DRIVERINFOSTRUCT
	length As Integer
	hDriver As Integer
	hModule As Integer
	szAliasName As String * 128
End Type


Statement:
Declare Function GetDriverInfo Lib "User" (ByVal hdrvr As Integer, lpdis As DRIVERINFOSTRUCT) As Integer


Statement:
Public Const LZERROR_GLOBALLOC = (-5)    '  insufficient memory for LZFile struct


Statement:
Public Const LZERROR_GLOBLOCK = (-6)     '  bad global handle


Statement:
Declare Function LZStart Lib "LZexpand.dll" () As Integer


Statement:
Declare Sub LZDone Lib "LZexpand.dll" ()


Statement:
Declare Function CopyLZFile Lib "LZexpand.dll" (ByVal hfSource As Integer, ByVal hfDest As Integer) As Long


Statement:
Declare Function LZCopy Lib "LZexpand.dll" (ByVal hfSource As Integer, ByVal hfDest As Integer) As Long


Statement:
Declare Function LZInit Lib "LZexpand.dll" (ByVal hfSrc As Integer) As Integer


Statement:
Declare Function GetExpandedName Lib "LZexpand.dll" (ByVal lpszSource As String, ByVal lpszBuffer As String) As Integer


Statement:
Declare Function LZOpenFile Lib "LZexpand.dll" (ByVal lpszFile As String, lpOf As OFSTRUCT, ByVal style As Integer) As Integer


Statement:
Declare Function LZSeek Lib "LZexpand.dll" (ByVal hfFile As Integer, ByVal lOffset As Long, ByVal nOrigin As Integer) As Long


Statement:
Declare Function LZRead Lib "LZexpand.dll" (ByVal hfFile As Integer, ByVal lpvBuf As String, ByVal cb As Integer) As Integer


Statement:
Declare Sub LZClose Lib "LZexpand.dll" (ByVal hfFile As Integer)


Statement:
Public Const WN_ALREADY_CONNECTED = &H0034


Statement:
Public Const WN_CONNECTION_CLOSED = &H0036


Statement:
Declare Function WNetAddConnection Lib "User" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Integer


Statement:
Declare Function WNetCancelConnection Lib "User" (ByVal lpszName As String, ByVal bForce As Integer) As Integer


Statement:
Declare Function WNetGetConnection Lib "User" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Integer) As Integer


